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B01 






SECTION 


DICTIONARY 




NUMBER 


NAME 


MAXIMUM 


ORIGIN 


TYP 


ADDRESS-MODIFICATION 


01 
02 
03 
04 
05 
06 


dNRUTIL 

NRUTS 

TAPUTL 

ENTRDPR6 

CMPRPROG 

OWPROG 


0000025 
0001012 
0003235 
0000251 
0000444 
0004036 




C 

c 
c 

c 
c 

c 
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• 



C01 






0010000 
0010000 
0010000 



VERSION H77D OF SWAP; VERSION 



01 
02 
03 
04 
05 
06 
07 
08 
09 



OF EPL 



DBNAM N033E3I3. OFF. DATABASE 

RELNAM N03ESS 

GETLIB LIBRARY, MEMBER«MOPTBL 

SETLIB LIBRARY, MEMBER=SYSMAC 

GETLIB LIBRARY, MEMBER=SYSSYM 

GETLIB LIBRARY,HEMBER=PATCH2 

FIRSTOPTSS 

VERSION 3ACC, FIELD, ESS2E 

PATCHINIT 



0:32:20 2/06/81 **** 
CNRUTL H770 



10 N033E3I3.0FF.OPMS<0) DECK 

11 DSO.UAL N033E3I3 

12 LISTING N,CRUNCH=Y,SYSOUT=N 

13 »nnunnnn«nn#»nnu 
u ttit 

15 UH UNIX ID = N03PAG 

16 tm 

17' MtttHttttWtttttlltlttttttHtil 

1 8 HHMHMitUtttlU#HtlK#itlHtHHHMHttHHHttitHm#tlH«1tMnH 

19 UHtt 

20 ttttHH pid date time rel 

21 tltttt 

22 UttUH enrutl 1/24/81 17:57:2? 7.1.1.1 

23 tltttt 

24 m»Hmmu*mmmmmmmmmiHHM 

25 NAME CNRUTL 



0010000 
0010025 
0015232 
0022611 
0020554 
0011037 
0007302 



0111432 
0112562 
0114107 
0115073 
0121236 



29 UK The following Is a list of the valid cseets for program CNRUTL 



31 CNRUTIL CSECT 

32 NRUTS CSECT 

33 TAPUTL CSECT 

34 ENTRDPRG CSECT 

35 CMPRPROG CSECT 

36 OHPROG CSECT 

37 NRPRES CSECT 



40 Kit The following esects are necessary for patching 



42 CPATCH CSECT 

43 CPATCH1 CSECT 

44 CPATCH2 CSECT 

45 CPATCH3 CSECT 

46 CPATCH7 CSECT 
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.BfiL 



0116774 
0600000 



01 TFAPCH2 CSECT 
03 TPATCH CSECT 



' 








0:32:20 2/06/81 **** 




CNRUTL H77D 
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jffiL 



0:32:20 2/06/81 **** 
CNRUTL W77D 



01 


GETLIB 


MEMBER=CCSYM 


02 


GETLIB 


MEMBER=SPMAC 


03 


GETLIB 


MEMBER=TTYMAC 


04 


GETLIB 


MEHBER=TTYSYM 


05 


GETLIB 


MEMBER=GPMAC 


06 


GETLIB 


MEMBER=TAPMAC 


07 


GETLIB 


MEMBER=TAPSYM 


08 


GETLIB 


MEMBER=BSAIMAC 


09 


GETLIB 


MEMBER=CTVTAB 


10 OPMWD 


OPRSW 






ft DO NOT PRINT OPMWD 
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F01 



ASSEMBU PROLOGUE 



01 
02 
03 
04 
OS 
06 
07 
08 
09 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 



. 



0:32:20 2/06/81 **** 
CNRUTL W77D 



it THIS ASSEM8LY CONSISTS OF A SET OF UTILITY ROUTINES WHICH MAY BE 

# NONRESIDENT. THE ROUTINES SUPPLY THE CRAFTSPERSON WITH "TOOLS" TO FIND 

# AND/OR FIX PROBLEMS IN THE HARDWARE OR SOFTWARE. IT IS ASSUMED 

# THAT THESE "TOOLS" WILL NOT BE NEEDED TO PROBE OTHER NONRESIDENT 

9 PROGRAMS BECAUSE TWO NON-RESIDENT PROGRAMS CANNOT BE ACTIVE SIMULTANEOUSLY. 
H THE ROUTINES THAT HAVE BEEN COMBINED IN THIS ASSEMBLY ARE INDEPENDENT 
» EXCEPT FOR THE ABOVE COMMON PURPOSE AND THE FACT THAT THEY SHARE 
» A SINGLE MULTISCAN FUNCTION DESIGNATION. THIS WAS DONE SOLELY TO 

# AVOID CREATING ADDITIONAL MULTISCAN FUNCTIONS. 

If THE FIRST PROGRAM SECTION IS A VERY SHORT ROUTINE TO DIFFERENTIATE BETWEEN 
It THE VARIOUS UTILITY ROUTINES IN THIS ASSEMBLY. IT IS REQUIRED BECAUSE ALL OF 

# THEM ARE PART OF THE SAME MULTISCAN FUNCTION. THIS SECTION BEGINS AT NRUBGN. 

H THIS SECTION IS FOLLOWED BY A SECTION WHICH ALLOCATES ANY SCRATCH STORAGE 

# AREA REQUIRED BY ANY OF THE FOLLOWING SECTIONS. ALL SCRATCH AREA FOR THIS 
U ENTIRE ASSEMBLY UNIT MUST BE CONSOLIDATED IN THE SECTION SO THAT IT CAN BE 
It EASILY ALLOCATED FOR LOADINGS IN WHICH THESE ROUTINES ARE MADE RESIDENT. 

M THE REMAINING SECTIONS OF THIS ASSEMBLY UNIT IMPLEMENT DISJOINT AND 

# INDEPENDENT UTILITY ROUTINES. THESE ROUTINES MAY EACH HAVE THEIR OWN TTY 
It CATALOG TO DEFINE TTY INPUT MESSAGES IT SERVICES. IF SUCH A CATALOG IS 

U CREATED, ITS IDENTITY MUST BE ENTERED IN THE MASTER TTY CATALOG HEAD TABLE IN 
n TTYTBL. ALSO, THE PROCESSING ROUTINES FOR THESE CATALOG ENTRIES MUST ALWAYS 
» BE RESIDENT WHEN THE CATALOG IS RESIDENT, IE, THE CATALOG MUST BE IN THE SAME 
K SEGMENT AS THE PROCESSING ROUTINES THAT SERVICE ITS ENTRIES. 

» THE UTILITY ROUTINES IMPLEMENTED BY THIS ASSEMBLY UNIT ARE: 

# TAPE UTILITY— USED TO MANIPULATE THE TAPE UNIT. 

If OFF-LINE REGISTER DUMP— USED TO PRINT THE CONTENTS OF REGISTERS IN THE OFF-LINE CC. 

# MAIN STORE COMPARE— USED TO COMPARE ON-LINE AND/OR OFF-LINE DATA CONTENTS. 
» OVERWRITE UTILITY— USED TO MAKE CHANGES TO PROGRAM. 
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J2L 



PUBLIC SYMBOLS 



01 
02 
03 
04 
05 
06 
07 
08 
09 
10 
11 
12 

8 

15 
16 
17 
18 
19 
20 
21 
22 
23 
2* 

I! 
g 

29 

30 

I 

3* 
35 

36 



PUBLIC 


ACTOW 


PUBLIC 


ALWDL 


PUBLIC 


ALWORD 


PUBLIC 


ALWOW 


PUBLIC 


ALWTAPE 


PUBLIC 


AUDITAPE 


PUBLIC 


CMPRHAS 


PUBLIC 


CNLOW 


PUBLIC 


COPYFILE 


PUBLIC 


COPYTAPE 


PUBLIC 


DLPG 


PUBLIC 


DMPREGOF 


PUBLIC 


OMPTAPE 


PUBLIC 


INGENID 


PUBLIC 


INISSID 


PUBLIC 


INITOWFI 


PUBLIC 


INOW 


PUBLIC 


INOWDATA 


PUBLIC 


INTAPE 


PUBLIC 


LODOMAS 


PUBLIC 


LODOW 


PUBLIC 


NRUBGN 


PUBLIC 


OPHASH 


PUBLIC 


OPHASHNR 


PUBLIC 


OPOW 


PUBLIC 


OPOWFILE 


PUBLIC 


OPTAPE 


PUBLIC 


ORDUTL 


PUBLIC 


RMVOW 


PUBLIC 


STOPOW 


PUBLIC 


STOPTAP 


PUBLIC 


TUUTCTL 


PUBLIC 


UPDHASH 


PUBLIC 


UPDOWFIL 


PUBLIC 


VERHASH 


PUBLIC 


VEROW 



0:32:20 2/06/81 **** 
CNRUTL W770 
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EXTERNAL SYMBOL DEFINITIONS 



JSL 



01 BLMMA EXTERN OFLUTIL 

03 BLMMA EXTERN TEMPINH 

04 BLMMA EXTERN TEMPINH" 

05 BLMMA EXTERN TEMPINH' 



0:32:20 2/06/81 **** 

CNRUTL W77D 

n MSF NUMBER OF NONRESIDENT UTILITY FCNS 
(SYMBOL) 






08 CBLM 
0? CBLM 

10 CBLM 

11 CBLM 

12 CBLM 

13 CBLM 

14 CBLM 

15 CBLM 

16 CBLM 

17 CBLM 

18 CBLM 

19 CBLM 

20 CBLM 

21 CBLM 



EXTERN 
EXTERN 
EXTERN 
EXTERN 
EXTERN 
EXTERN 
EXTERN 
EXTERN 
EXTERN 
EXTERN 
EXTERN 
EXTERN 
EXTERN 
EXTERN 



ACTMSF 

BGNPSAU 

CK OST 

STOPPSAU 

MSFABT 

MSFREQN 

OFL STBY 

OMASUPD 

OTSUPD 

PKEYM 

QOFLCC 

UPDOMAS 

UQOFLCC 

WAIT 






26 CIPL 

27 CIPL 

28 CIPL 

29 CIPL 

30 CIPL 

31 CIPL 

32 CIPL 



EXTERN 
EXTERN 
EXTERN 
EXTERN 
EXTERN 
EXTERN 
EXTERN 



ALLMAS 

BTLODOFS 

HASHLEN 

OFLBTOFS 

PROGBLKS 

SYSTMOFS 

TSFLG 



35 CDATH EXTERN CDLB 



40 COUTIL EXTERN ORDMSF 



43 


CSYSUB 


EXTERN 


ADD16 


44 


CSYSUB 


EXTERN 


BCDXBIN 


45 


CSYSUB 


EXTERN 


BINXBCD 


46 


CSYSUB 


EXTERN 


CLR WRDS 


47 


CSYSUB 


EXTERN 


CLR 16 


48 


CSYSUB 


EXTERN 


CMPR20 


4V 


CSYSUB 


EXTERN 


EXCMCH 
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EXTERNAL SYMBOL DEFINITIONS 



BQ2 



01 csrsuB 

02 CSYSUB 

03 CSYSUB 

04 CSYSUB 

05 CSYSUB 

06 CSYSUB 

07 CSYSUB 

08 CSYSUB 

09 CSYSUB 

10 CSYSUB 

11 CSYSUB 

12 CSYSUB 

13 CSYSUB 

14 CSYSUB 

15 CSYSUB 

16 CSYSUB 

17 CSYSUB 



EXTERN 
EXTERN 
EXTERN 
EXTERN 
EXTERN 
EXTERN 
EXTERN 
EXTERN 
EXTERN 
EXTERN 
EXTERN 
EXTERN 
EXTERN 
EXTERN 
EXTERN 
EXTERN 
EXTERN 



EXCOFLPS 

INIT OCC 

INITOST 

L2_5 

L2 7 

L2 13 

MOVST 

RGCHKADR 

ST2 7 

ST2~13 

SUBT6 

TENZERO 

TIMOUTX 

WPOST 

TIMCHK 

TIMOUT 

SENDMIO 



0:32:20 2/06/81 **** 
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20 CTAPH 

21 CTAPH 

22 CTAPH 

23 CTAPH 

24 CTAPH 

25 CTAPH 

26 CTAPH 

27 CTAPH 



EXTERN 
EXTERN 
EXTERN 
EXTERN 
EXTERN 
EXTERN 
EXTERN 
EXTERN 



ALWERRCV 

BLKDATA 

CLRMAINT 

I OBUFD 

INHERRCV 

INITTAPE 

JAMTU 

SETMAINT 



If LENGTH OF TAPE BLOCK HEADER 



30 CTSD 

31 CTSD 

32 CTSD 

33 CTSD 

34 CTSD 

35 CTSD 

36 CTSD 

37 CTSD 

38 CTSD 



EXTERN 
EXTERN 
EXTERN 
EXTERN 
EXTERN 
EXTERN 
EXTERN 
EXTERN 
EXTERN 



AUMASCTL 

MSFPROG 

OFLUCTL 

PAGSCR 

SYSTATE 

TCBADR 

TUSTAT 

UREQBUF 

YEARS 



41 CTTYH EXTERN MTTYIDLE 

42 CTTYH EXTERN PAPEROFF 

43 CTTYH EXTERN PAPERON 
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EXTERNAL SYMBOL DEFINITIONS 



CQ2 



01 CUTIL EXTERN CMPRDBF 

02 CUTIL EXTERN LOAODB 

03 CUTIL EXTERN STPUTIL 

04 CUTIL EXTERN UREQ 



07 INITA EXTERN ZOSPWDS 



0:32:20 2/06/81 **** 
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10 


LAYOUT 


EXTERN 


HGAREA 


11 


LAYOUT 


EXTERN 


I OBUF 


12 


LAYOUT 


EXTERN 


TTY_HFA 


15 


HASACS 


EXTERN 


BLKSIZE 


16 


HASACS 


EXTERN 


BLKMAX 


17 


MASACS 


EXTERN 


CVTINDEX 


18 


HASACS 


EXTERN 


DIRLOC 


19 


HASACS 


EXTERN 


DIRTRK 


20 


HASACS 


EXTERN 


HASHSUHF 


21 


HASACS 


EXTERN 


HASHSUHN 


22 


HASACS 


EXTERN 


HASHSUHP 


23 


HASACS 


EXTERN 


LDWORD 


24 


HASACS 


EXTERN 


OBUFLEN 


25 


HASACS 


EXTERN 


RDOPS 


26 


HASACS 


EXTERN 


SETRCBAP 


27 


HASACS 


EXTERN 


STWORD 


28 


HASACS 


EXTERN 


UNPKWRDS 


29 


HASACS 


EXTERN 


WOPS 


30 


HASACS 


EXTERN 


HASCIOSC 


33 


SE6000 


EXTERN 


NUM SE6S 


34 


SE6000 


EXTERN 


SEGTAB 


37 


TDATA 


EXTERN 


STRLIH 


38 


TDATA 


EXTERN 


TAPETBL 


39 


TDATA 


EXTERN 


TDATA 


40 


TDATA 


EXTERN 


WDSTR 


41 


TDATA 


EXTERN 


STRLIH 


44 


TTYAPP 


EXTERN 


LINKRDY 


45 


TTYAPP 


EXTERN 


HFAD 



# INPUT/OUTPUT DATA BUFFER FOR TAPE 

# LENGTH OF TAPE BLOCK (SYHBOL) 

H CONVERT NUHBER OF ESS WORDS TO 16-BIT WORDS 



H LOAD ONE ESS WORD (SUBR) 

K LENGTH OF I OBUF USED BY OVERWRITE FCN 

n READ ONE PROTECTED STORE WORD (SUBR) 

U INHIBIT RECENT CHANGE BIT AUDIT MESSAGES 

H STORE ONE ESS WORD (SUBR) 

it WRITE ONE PROTECTED STORE WORD (SUBR) 



H CHECK IF LAST TTY OUTPUT HSG LINK IS DONE 
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J5L 



01 


TTYTBL 


EXTERN 


TTY IP 


02 


TTYTBL 


EXTERN 


TTY N6 


03 


TTYTBL 


EXTERN 


TTY_OK 


04 


TTYTBL 


EXTERN 


TTY PF 


05 


TTYTBL 


EXTERN 


TTY_RL 


06 


TTYTBL 


EXTERN 


ALL 


07 


TTYTBL 


EXTERN 


ALU 


08 


TTYTBL 


EXTERN 


COMP 


09 


TTYTBL 


EXTERN 


CORR 


10 


TTYTBL 


EXTERN 


OETL 


11 


TTYTBL 


EXTERN 


PATCH 


12 


TTYTBL 


EXTERN 


UCL 



0:32:20 2/06/81 **** 

CNRUTL W77D 

n TTY INPUT MESSAGE RESPONSE (SYMBOL) 

It TTY INPUT MESSAGE RESPONSE (SYMBOL) 

H TTY INPUT MESSAGE RESPONSE (SYMBOL) 

K TTY INPUT MESSAGE RESPONSE (SYMBOL) 

# TTY INPUT MESSAGE RESPONSE (SYMBOL) 
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MACRO DEFINITIONS 




0:32:20 2/06/81 **** 
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CNRUTL W77D 




01 MACRO 
RTB 02 RTB CODE, CLASS 

03 ISCCODE'-'TTYIN') 

04 IFSO<LI RTBPN,*-RTBPM0RG+4> 

05 IFSO(BL)IFNOT(BSA) ADVPM:CODE:CLASS 

06 SPACE 2 

07 BA1 

08 RTB MEND 


■ ■ 






14 MACRO 
CALLPROC 15 CALLPROC ADR 

16 LI PR0CPM,*-RTBPM0RG+4 

17 BL ADR 

18 BA1 

19 CALLPROC MEND 


■ 
• 


■ 




25 MACRO 
RTNPROC 26 RTNPROC RTNCODE 

27 LN RO,RTNCODE 

28 LR RTBPM,PROCPM 
2? BL BRTBPM 

30 MEND 




■ 


' 




. 


■ ' 




36 HACRO 
TUFCODE 37 TUFCODE FNAME 

38 PMC ON 

39 FNAME: FN E«U <*-BPAXTUTL>/2 

40 PMC OFF 

41 BA1 

42 BL FNAME:MON 

43 MEND 








■ . •' 


, 


'.. 




COMHON NONRESIDENT UTILITIES 




- 

PR-1C954-50 




0:32:20 2/06/81 TRADE SECRET - SEE TRADE SECRET RESTRICTIVE NOTICE ON COVER SHEET 


CNRUTL 


ISSUE 05 PAGE 10 




- 









• • 



F02 



CONSTANT DEFINITIONS 



R1 
OOI" 



01 R1 LAYOUT 

02 OFLUNO ITEM 

04 LOEND 

rBB5=_Q5_s 



0:32:20 



2/06/81 **** 



CNRUTL 



W77D 



# OFLUCTL WORD FORMAT AS USED BY OW PROGRAM 
K NUMBER IDENTIFIES WHICH OFFLINE UTILITY TO 
RUN 



l****************************.*^^ 



W I U I » I If 'I H , ' T" , W a T' » H"F -y I" 4 ' I I t ♦ 



TT 



OFLUNO 
.|-_ ? _-- T _- T -„ r _ r 



RO 
001 



16 RO 


LAYOUT 




17 ABTB 


ITEM 


1 


18 1STB 


ITEM 


1 


19 


LOEND 




=QQi=_2Q_* 







# ENTRY FLAGS FOR MULTISCAN FUNCTIONS 

# ABORTING MSF 

# FIRST ENTRY TO MSF 



| ******************************************** 

I 1? T T? T TJ T 1? T TT T — TJTT — ? — T — 5 — T — 7 — T — Z — T — J — T — 5 — T — 3 — T — ? — T 



TTstb Tabtb I 



I 
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602 



CONSTANT DEFINITIONS 
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01 TUCOPYCTL LAYOUT W0RDS=10 



TUCfiCX£IL_ 
OOf 

I 

011 

I 

021 

I 

031 

I 
041 

I 
051" 

I 

061 

I 

071 

I 

081 



02 UTCTL 


ITEH 


4 


03 


LOSKIP 


0,0 


04 MBKNO 


ITEM 


16 


05 SUBST 


ITEM 


16 


06 C8KN0 


ITEM 


16 


07 LNKS 


ITEM 


16 


08 SGNO 


ITEM 


16 


09 TPNO 


ITEM 


16 


10 LENGTH 


ITEM 


16 


11 LASOLK 


ITEM 


16 


12 AUX2 


ITEM 


16 


13 


LCEND 




li.fi 







H UTILITY CONTROL MAJOR STATE 

M FIRST BLOCK-TRACK NUMBER 
« SUBSTATE INDtX 

* SECOND BLOCK-TRACK NUMBER 
If LINK NUMBER SAVE AREA 

U POINTS TO 10 BUFFER (INDEX) 
» TAPE NUMBER 

* NUMBER OF BLOCKS TO COPY 
$ LAST BLOCK TO COPY 

U EXTRA STORAGE AREA 



"7 Utctl 
J-_UIIUin_£2NI59i-HftieB_s_IA.IiL 



MBKNO 

-_£IBSI_BL2£Kria&£K_tmiiBER_. 

SUBST 

SV.BSIftIE-IN.P_EX. 

CBKNO 

-£l£etlB_BL&£l<;IBft£l<_tiUeBia„ 

LNKS 
LlHOyMBlB_SAVE_A.BlA. 

SGNO 

.E2It!IS_I2-ie-iyE£EB-i;iNDE!<L 



TPNO 

IAEOUMBiB 

LENGTH 

BUBBEB_2f-BL2£l<S_I2_£2EX. 
LASBLK 

I - L45I_BL2£K_I2_£2Er 

091 AUX2 



"T — J T — 4" — T — 3 T — 5 — T — 1 1 — 8" 
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CONSTANT DEFINITIONS 



jftSL 



01 TUUTCTL UYOUT WOROS-10 



TUUICIU. 
00 1 

I 

011 

I 

021 

I _ 
031 

I 
041" " 

I 
051 

I 
061 

I 
071 

I 

081 

I 
091 

I 

I 



02 UTCTL 
03 

04 BKNO 

05 SUBST 

06 LENO 

07 LNKS 

08 SGNO 

09 TPNO 

10 ERCT 

11 AUX1 

12 AUX2 
13 

_=QQ5r_14_* 



ITEM 4 
LOSKIP 0,0 
ITEM 16 



ITEM 
ITEM 
ITEM 
ITEM 
ITEM 
ITEM 
ITEM 
ITEM 
LOEND 



16 
16 

16 
16 
16 
16 

16 
16 



0:32:20 2/06/81 **** 
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* UTILITY CONTROL MAJOR STATE 

n BLOCK-TRACK NUMBER 

* SUBSTATE INDEX 

U NUMBER OF BLOCKS 

* LINK NUMBER SAVE AREA 

H POINTER TO IOBUFFER (INDEX) 
U TAPE NUMBER 

* ERROR COUNT 

* 2 WORDS FOR EXTRA STORAGE 



BKNO 

__-2--_IE__Oy__IB-- 
SUBST 

---SI_IE___-E_ 



UTCTL 



LENO 

-N.--BEB-e__eL.2-_s. 

LNKS 



— __N___-__EB-______BE- 

SGNO 

-E2i-I_B-I2_I0BUEEIS_i_2l__. 

TPNO 

i-e___y_6EB 



ERCT 

.E8B2B-.2--I 

AUX1 
__2B--_-28-.__l8__-I2BA.SE_ 



AUX2 



-frn w~\ w \ \\ i w \ w r » ! i''i"i f i * i i I — * — n — n—r~i — i — 6~ 
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■03 



CONSTANT DEFINITIONS 



0:32:20 2/06/81 **** 
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tusiai. 



01 TUSTAT LAYOUT 


1,FLTBLK 


02 PTP ITEM 


11 


03 TSTATE ITEM 


1 


04 COMPROK ITEM 


1 


05 POSOK ITEM 


1 


06 REDON ITEM 


1 


07 SE9ERR ITEM 


1 


08 LOEND 




QQ5:_Q2.« 





* TAPE STATUS WORD. 



oo l s e«err~Tredon T"posok~TcomprokTt ST AT E"T 

I ' » I — tj~{ — rr~i — fi t* fi "f '..« I f ' i 



PTP 



~S — T — 7 — T — 5 — 1 — J I * " I "» I — ? — T~T — I — 0" 



20 PA6SCR LAYOUT 

21 LINKWRD ITEM 

22 RGCOUNT ITEM 



2 

16 
16 




:QQ5: 



24 



#BUFFER FOR TTY LINK POINTER 
^POINTER INTO REGISTER STORED IN ON-LINE 
BUFFER 



LOEND 



LINKWRD 

IU£EES_£0S_Iir_l.lNK_C2lNIEB. 

RGCOUNT 



T « !.| « '■■!■ 41 ■ l M l^ B |- M PI L '! ll ^ t H lll ¥ 1 ^ 



T — < — r~r 
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CONSTANT DEFINITIONS 



0000001 
0000005 



JSL 



01 INDEX EQUR R1 

02 RGCOUNTR EQUR R5 



0:32:20 2/06/S1 **** 
CNRUTL W77D 



INDEX REGISTER 

COPr OF STORE WORD RGCOUNT 



0006070 
0006060 



08 REFSTOP EQU 

09 REFSTRT EQU 



0(6070) 
0(6060) 



7777777 

0000000 
0000001 
0000003 

0077777 
0007777 
0000037 
0000100 



13 EOOWF EQU 

14 OWINACT EQU 

15 OWACT EQU 

16 OWDEAD EQU 



-0 


1 

3 



18 32KMSK EQU MSK(15) 
1? 4KMSK EQU MSK(12> 

20 32SEGMSK EQU HSK(5) 

21 HASHLENMAX EQU 0(64) 



* ALL ONES OH LENGTH MARKS END OF OW FILE 

* OW STATUS IS INACTIVE 
U OW STATUS IS ACTIVE 

U OW STATUS IS DEAD 

U HASHSUM MASK 
U HASHSUM MASK 

* SEGMENT MASK 

it MAXIMUM HASHSUM CALC. LENGTH 



25 n ADDRESSES (WITHIN I.OBUF) OF PARAMETERS FOR THE OFFLINE BOOTSTRAP 

26 BOOTLOADADR TEXT 'I.OBUF-H 0BUFD+2+BTLODOFS' * ADDR OF BOOTLOAD 

27 OFLBOOTTBL TEXT , I_0BUF+I_0BUFD+2+0FLBT0FS' BEGINNING OF TABLE 

28 OFLSYSTIM TEXT , I_0BUF+I_0BUFD+2+SYSTM0FS' # OFFLINE SYSTIM ADDRESS 
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003 



CONSTANT DEFINITIONS 



01 R2 LAYOUT 


12 


02 OWBPTR ITEM 


16 


04 IOBPTR ITEM 


16 


06 TTYVERB ITEM 


16 


07 TTYID1 ITEM 


16 


08 OWNUM ITEM 


16 


09 TTY OP ITEM 


1 


10 NEW OP ITEM 


1 


11 BLKCHGD ITEM 


1 


12 UCL OP ITEM 


1 


13 TRN OP ITEM 


1 


1A NOBGN ITEM 


1 


15 NOLAST ITEM 


1 


16 OWFILSW ITEM 


1 


17 LOSKIP 




18 RTBPM ITEM 


14 


1? TAPEACT ITEM 


1 


20 TTYACT ITEM 


1 


21 TTYLINK ITEM 


16 


22 PROCPM ITEM 


16 


23 PROCSCR ITEM 


16 


24 ITEM 


ADDR 


25 LOENO 





0:32:20 



2/06/81 **** 



CNRUTL 



W77D 



K LAYOUT OF OVERWRITE PROGRAM CONTROL BLOCK 

# POINTER TO CURRENT POSITION IN THE OW 
BUFFER 

» POINTER TO CURRENT POSITION IN THE 
INPUT-OUTPUT BUFFER 

# FIRST DICTIONARY WORD OF TTY INPUT MESSAGE 
U SECOND DICTIONARY WORD OF TTY INPUT MESSAGE 
It OW NUMBER IDENTIFIER 

# TTY OPTION WAS REQUESTED. 
II NEW OPTION WAS REQUESTED. 

U DATA CHANGED IN THIS TAPE BLOCK (LOD:OW) 

n UNCONDITIONAL ACT:OW REQUEST 

n REQUEST TYPE (GENERIC OR TRNSLN) 

U NO BEGINNING ADDRESS SPECIFIED 

n NO LAST ADDRESS SPECIFIED 

» OWFILE PRINT SWITCH 

*> OW PROGRESS MARK 

# REQUEST tO TAPE HANDLER IS ACTIVE 

# TTY LINKED OUTPUT IS ACTIVE 

» INFORMATION FOR TTY LINKED OUTPUT 

U 'RETURN ADDRESS* OF A PROCEDURE 

H SCRATCH REGISTER FOR USE BY PROCEDURES 

# RAO 
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£03 



CONSTANT DEFINITIONS 



R2 -QQ2- Ql U 

I 
011 



0:32:20 2/06/81 
CNRUTL 



W77D 



OWBPTR 

e2INIIS_I2_£yB5INI_P0SiH0N_iN_im_2H_BUE£|5. 

IOBPTR 



.eeiNIi5-I0_£URRENi_EOSiii0N_iN_iH|_iNEyi-gyiEUl_eUE£l5. 

TTrVERB 



.£I5SI-BI£IiaNftRY_yoao 0E_iii_iNpyi_|iESJA6E. 

TTriDT 



I 

021" 

I 

031 

n I 5i£eNB_Bi£IieN45I.«0R0_g£_HY_iNEy[i_M|Ssa5| 

04 1 0WNUM 

I . 2B N.UBB£R IDENIIFIEg 

05 ToWFILSWTNOLASf~T NOBGN~TTRN"OP~T0a~OP~TBLKCHGb7NEff 0P~TfT7""0P" 

i i i i l z I z 1 i - i - 



06ITTTACT TTAPEACTT 
I I I 
071 

r 

08 1 

I _ 

091 

I 

101 



RTBPM 

2H_EE2GBISS_BftR!<. 

TTVLINK 
„INE2SBftIl2N_E2R_Iir_LiNl<EB_2UlPyi- 

PROCPM 

:BEiySN-4BeBIis:_2£_4_E82£i2yE§_. 

PROCSCR 



££R&KtLBI£I£IEB-£25_!i£6_eX-eB2£EP_yS6£- 



111 

I 
I 



li****i***********************5ii*******i**;*********i** 



_BA0_ 



» I "14 1 "» I » I » f I B I 



T"~r 



I 5 I * I i — T" 
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F03 



CONSTANT DEFINITIONS 



0:32:20 



2/06/81 



CNRUTL 



W77D 



01 


R8 LAYOUT 


1 


02 


ON OFF ITEM 


1 


03 


ON CON ITEM 


1 


04 


OFF CON ITEM 


1 


05 


ALL OP ITEM 


1 


C6 


ALM OP ITEM 


1 


07 


COMP OP ITEM 


1 


08 


ONL ERR ITEM 


1 


09 


OFL ERR ITEM 


1 


10 


WIDE OP ITEM 


1 


11 


LOEND 





# OPTION FLAGS FOR MAIN STORE COMPARE 
U COMPARE ONLINE TO OFFLINE 

M COMPARE ONLINE TO CONSTANT 
n COMPARE OFFLINE TO CONSTANT 

# DO NOT SKIP TEMPORARY STORE 

# ALARM A MISMATCH 

» READ WITH COMPLEMENT CORRECT STORE READS 
» ONLINE PARITY ERROR 
K OFFLINE PARITY ERROR 
Hf WIDE STORE FLAG 



R«. . _.zQe2=.12_« T . T _— T — T T t _t T , 

00 1 TWIDE.OPTOFL ERRT0NL_ERRTC0MP_0PTALM OP TALL_OP ToFF_CON T OfTCON Ton_off I 

| ***************************** A*** A********************* | I I I I I I I I I 

~Tr"T-~TT"~T™T5""T~? — I I \ 1 \ — I — 1 — 5"~T — r^T~3 — T~l — T — T — I — — I 



I — iJ I U I 13 I 
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• • 



CONSTANT DEFINITIONS 



RO 

OOI 

I 

01 1 

I - — 
02 1 
I 



603 



01 RO LAYOUT 3 

02 ITEM ADDR 

03 RCRDLG ITEM 12 

04 PCDATA ITEM 16 

06 LOEND 

_=flBfc_P.ZJ! 

RCRDLG 
_-LINSIOE_Ri£2RB 



"PGDA?A* 



0:32:20 2/06/81 **** 
CNRUTL W77D 



H BASE ADDRESS Of RECORD 
It LENGTH OF RECORD 

» BEGINNING OF DATA, NCPGDATAXENGTH OF 
HEADER 



.1 l&SE_&EBEKL.2L.8iC.2RJ 



i"-Tr-T--Ti-r"Tr-r-^^^ 
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JSL 



CONSTANT DEFINITIONS 



01 OWFIL 


LAYOUT 


13 


02 


ITEM 


16 


03 


ITEM 


16 


04 


ITEM 


8 


05 


ITEM 


8 


06 


ITEM 


8 


07 


ITEM 


8 


08 


ITEM 


8 


09 


ITEM 


8 


10 


ITEM 


8 


11 


ITEM 


8 


12 


ITEM 


8 


13 


ITEM 


8 


14 


ITEM 


8 


15 


ITEM 


8 


16 


ITEM 


8 


17 


ITEM 


8 


18 


ITEM 


8 


19 


ITEM 


8 


20 


ITEM 


16 


21 


ITEM 


16 


22 


ITEM 


16 



0:32:20 2/06/81 **** 
CNRUTL M770 



n LENGTH OF OWFILE HEADER 
n ALL ONES 

* GENID 
$ GENID 
U GENID 
K GENID 
U GENID 
U GENID 
H GENID 
n GENID 
U ISSID 

n issid 

* ISSID 
H ISSID 

n issid 

* ISSID 

* ISSID 
H ISSID 
» SPARE 
ff SPARE 

* BEGINNING OF HEADER OF FIRST OW 
ALL ONES 



INITIALLY 
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B04 



_LENSia_2£_SM£lLE_UE4BE8 



CONSTANT DEFINITIONS 



Z 11 -- = BH - C1 -* 

I 

Oil 

I 
021 

I 
031 

I 
041 

I 
051 

I 
061 



0:32:20 2/06/81 **** 
CNRUTL U77D 



-SEME 



.&L.LON.E 



SEME 1 



gENIB. 



SENIB. 
SEgiB. 



.SENIB. 



071 



-SENIfi. 
-IS5IB. 



.SENIB . 

.ISSlfi 



081 

I 
091 

I 
101 

I 
111" 
. I. 
121 

I 

I" 



! mm. 



.ISJlfi. 



-liSIB. 



.IISIB. 



I2SIB. 



I 



.IS5IB. 



.5E&BE 



-JEftEE. 



.- Tr - r .^.. 7 „- iT .. r „ Tr . r „ TrB pN^S T aE^E ft BEE_Sp 



- T „_ J „_ r __ ? r 



•1 — 5" 
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CO* 



CONSTANT DEFINITIONS 



0:32:20 



2/06/81 **** 



CNRUTL 



H77D 



001- 01 


OHBUF 


LAYOUT 


7,CLASS«FLTBLK 




02 


OHTLEN 


ITEM 


16 





03 


OWNO 


ITEM 


16 





04 




ITEM 


8 


1 


05 




ITEM 


8 


n 


06 




ITEM 


8 


n 


07 




ITEM 


8 


n 


08 




ITEM 


8 


§ 


09 




ITEM 


8 


n 


10 


OHSTAT 


ITEM 


2 


n 


11 


OHTYPE 


ITEM 


1 


n 


12 




LOSKIP 






13 


EOH 


ITEM 


16 


n 


15 




LOEND 






GS5;_1«_8„ _ 









TOTAL LENGTH OF OW (INCLUDES HEADER, ETC.) 

OW NUMBER 

TIME OF INSERTION—DAYS 

TIME OF INSERTION— MONTHS 

TIME OF INSERTION— HOURS 

TIME OF INSERTION— YEARS 

TIME OF INSERTION— SECONDS 

TIME OF INSERTION— MINUTES 

OH STATUS 

TYPE OF OH (GENERIC OR TRANSLATION) 

if BEGINNING OF FIRST ORGBLK - N(EOH) IS THE 
LENGTH OF THE HEADER 



OHBUF 
001 

I _ 
011 

I 
021 

I 
03 I 

I 
041 

•j IIHE_2E_iy5E5IieNtrBiyUIES i. 

051 

I 

061 

j -—«- 



OHTLEN 
I2IftL_UM£IB_GO!LiIN£L.y.P.ES_J{E&P.E.k 



-IiKE-SE-tNS.i8IlON.~M.2N.IHS. 

„IieE-eE-tN&iRIlS>N-IE&5&. 



OHNO 
.2«_NUM@ER_ 



£&A. 






I!ME_2E_IN.SEBI!2N-DA.YS_ 



.IIBE_2£_iM£EBIl2H~112l!8S 



jr.lBE-2E_INSEBII28-SEE2N.2S. 

TOHTYPE T 



"EOH " * 

Niptt2 r I8_pE-^ESe^-2E_I!iE.HE^BE5 T ? T [ . 



OHSTAT 
OH S TATUS 



_BE 



| j ._ p .%.ff n i j .My__.g 



■i — r — o — i 
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CONSTANT DEFINITIONS 



ORGB.L.K. 
OOI 

I 
01 1 

I 
02 1 

I 
051 

I 
041 

I 
051" 

I 

I 



01 ORGBLK LATOUT 6 

02 OBLKLG ITEM 16 

03 OBLKADR ITEM ADDR 

04 OBLKSEG ITEM 12 

05 NEWDL ITEM 16 

06 OLDDK ITEM 8 

07 NEWDH ITEM 8 

08 OLOOL ITEM 16 

09 LOENO 

:BQ2:_1Q_8 



0:32:20 2/06/81 **** 

CNRUTL W77D 

ft FORMAT OF AN ORIGIN BLOCK IN THE OW BUFFER 
n TOTAL NUMBER OF MAS WORDS TO NEXT BLOCK 
H FIRST ADDRESS OF BLOCK 
H SEGMENT NUMBER OF BLOCK 
U LOW 16 BITS OF NEW DATA 
K HIGH 8 BITS OF OLD DATA 
U HIGH 8 BITS OF NEW DATA 
U LOW 16 BITS OF OLD DATA 



OBLKLG 
ieiAL.pMeER_eE_M4i_weEB5_I2-NESi_Bi.otli. 



OBLKSEG 
__l__i_I_NUM_E__eOL.QC_K. 



OBLKADR 
.-I_SI_A.Dp__E&i_OF_e-OCJC 



NEWDH 

--I£__8_BlI£_2£__EW_BftIA. 



NEWDL 

k2-_l--6lI5 T -E_K|W_DftiA 

OLDDH 
L- Bi£lL-_BIIi_S£-eLB-B&I4- 



» I if f "IS" I « f '..'If \ — w~r~v~T 



OLDDL 

HLglI___£..2__. 



T" J — T~ 5™ T ~ r — r— 3~- r 



T T 1 — (J" 













■ .. . 


■ 








■ 


. 




■ 










■ ■ 










■ 




.. 








■ 










. 


' 


" 






• 




. 






' 
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E04 




NONRESIDENT UTILITY PROGRAM MONITOR 










0:32:20 2/06/81 **** 


0010000 












CNRUTIL CSECT 




CNRUTL W77D 




01 






1 


02 U THIS IS A SHORT 

03 # VARIOUS UTILITY 


ROUTINE 
ROUTINE! 


TO DIFFERENTIATE BETWEEN THE 
IN THIS ASSEMBLY. THE CHOICE 










04 H IS BASED ON THE 


CONTENTS 


OF A RESIDENT 


CONTROL WORD 










05 * WHICH IS ASSUMED TO 


HAVi 


BEEN PREVIOUSLY LOADED 










06 * IN AN ENVIRONMENT WHERE 


THESE ROUTINES 


ARE NONRESIDENT 










07 H THIS MONITOR WILL TYPICALLY BE OVERLAID AFTER ONE ENTRY 










08 U WITH THE DESIRED UTILIT1 


ROUTINE. THUS BOTH THIS MONITORED 










09 $ AND ALL THE INDIVIDUAL UTILITY ROUTINES MUST BE WRITTEN 










10 * AS IF THEY WERE 


MULTISCAN FUNCTIONS. 


SEE DEFINITION OF A 










11 * MULTISCAN FUNCTION IN ASSEMBLY UNIT CBLM. 




0010000 










15 


NRUBGN 






0010000 










16 
17 


BEGIN 
R1 


() 

OFLUCTL 8 M(OFLUNO) /RL 1 




0010000 


01 


000000 


130420 043177 CTSD -OC 


18 


LL 


R1,0FLUCTL 




0010002 


01 


000002 


003422 000007 


■004- 


19 


NI 


R1,M(' , FLUN0) 


■.:"." * 


001000* 


01 


000004 


010437 


■005- 


20 


RLN 


R1,1 


-•• . "" ~ 


0010005 


01 


000005 


056001 




21 


BPAX 


R1 




0010006 










22 


BPAXORG 






0010006 










23 


RETURN 


3 H STOP MSF--NO 


UTILITY ACTIVE 


0010006 


01 


000006 


156463 


■001- 


24 


BTSAN 


3 




0010007 


01 


000007 


006000 

0000001 




25 
26 


NOP 
OWPG EOU 


(*-BPAX0RG)/2 




0010010 


000010 


137000 011037 0011037 




27 


BL 


XTR(OWMSF) 










0000002 




28 


TUUTIL E8U 


(*-BPAX0RG)/2 




0010012 


01 


000012 


137000 015232 0015232 
0000003 




29 

30 


BL 
OFLREGDMP E8U 


XTR(TAPUMON) 
(*-BPAX0RG>/2 




0010014 


01 


000014 


137000 022611 0022611 
0000004 




31 
32 


BL 
ORDUTL EaU 


XTR(ENTRDPRG) 
<*-BPAX0RG)/2 




0010016 


01 


000016 


137000 021322 COUTIL 
0000005 




33 

34 


BL 
DLPG EaU 


ORDMSF 
<*-BPAX0RG)/2 




0010020 


01 


000020 


137000 023062 CDATH 
0000006 




35 

36 


BL 
CMPRPG EaU 


CDLB 
<*-BPAX0RG)/2 




0010022 


01 


000022 


137000 020554 0020554 




37 


BL 


XTR(CMPRPROG) 




0010024 










38 


RETURN 


3 U UNUSED 




0010024 


01 


000024 


156463 


■001- 


39 


BTSAN 


3 
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JSL 



NONRESIDENT UTILITY TEMPORARY STORE DEFINITION 



0:32:20 2/06/81 «*** 
CNRUTL W77D 





01 n 




02 * 




03 n 




04 » 




05 » 


0010025 




0010025 





0010041 



ALL SCRATCH AREA REQUIRED BY ANY ROUTINE IN THIS ASSEMBLY UNIT 

IS DEFINED IN THIS SECTION. THE CONTROLLING PROGRAM NAME IDENTIFIES 

THE ROUTINES WHICH USE EACH BLOCK. SINCE THE ROUTINES ARE 

INDEPENDENT, THEIR SCRATCH AREAS CAN BE SHARED. THIS IS DONE 

TO CONSERVE SPACE. 

06 NRUTS CSECT 

07 OWCTL TSD 12 
-001- 08 OHCTL 

-001- 0? # THE CONTENTS OF THIS BLOCK WILL BE ZEROED AT INITIALIZATION LEVEL 1. 

11 n CONTROLLING PROGRAM: OWPROG 
12 

13 U PURPOSE OR USE: 

14 * CONTAINS POINTERS AND MEMORY USED IN THE EXECUTION 

15 * OF THE OVERWRITE PROGRAM. 



0010041 



0010042 



21 SEQKEY TSD 1 
-001- 22 SEQKEY 
-001- 23 U THE CONTENTS OF THIS BLOCK WILL BE ZEROED AT INITIALIZATION LEVEL 1. 

25 § CONTROLLING PROGRAM: OWPROG 
26 

27 n PURPOSE OR USE: 

28 # CONTAINS A KEY USED AS A PARTIAL CHECK ON THE SEQUENCING 

29 U OF INPUT MESSAGES. 



0010042 



0010052 



35 GENISS TSD 8 

-001- 36 GENISS 

-001- 37 U THE CONTENTS OF THIS BLOCK WILL BE ZEROED AT INITIALIZATION LEVEL 1. 

39 U CONTROLLING PROGRAM: OWPROG 
40 

41 U PURPOSE OR USE: 

42 » CONTAINS THE GENERIC IDENTIFIER IN THE FIRST FOUR 

43 * WORDS AND THE ISSUE IDENTIFIER IN THE LAST FOUR WORDS. 

44 * EACH IDENTIFIER CONSISTS OF EIGHT ASCII CHARACTERS PACKED 

45 U TWO PER WORD. 
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60* 




NONRESIDENT UTILITY TEMPORARY STORE DEFINITION 0:32:20 2/06/81 **** 


CNRUTL 


W77D 


0010052 01 REGBUF * 40 WORDS REQUIRED, SHARES OWBUFFER 

02 n CONTROLLING PROGRAM: DMPREGOF 
0010052 03 

0* # HOLDS THE CONTENTS OF REGISTERS AS THEY ARE BEING PRINTED 




• 

0010052 10 TUUTCTL # 10 WORDS REQUIRED, SHARES OWBUFFER 

11 K CONTROLLING PROGRAM: TAPUTL 
0010052 12 

13 # HOLDS CONTROL INFORMATION FOR THE TAPE UTILITY ROUTINE. 

■ 




0010052 1? TUCOPYCTL # 10 WORDS REQUIRED SHARES OW BUFFER 

20 » CONTROLING PROGRAM: TAPUTL 

21 # HOLDS CONTROL INFORMATION FOR THE TAPE COPY ROUTINES 


' 


27 OWBUFFER TSD . 501 
0010052 -001- 28 OWBUFFER 

-001- 2? # THE CONTENTS OF THIS BLOCK WILL BE ZEROEO AT INITIALIZATION LEVEL 1. 




31 n CONTROLLING PROGRAM: OWPROG 
0010052 32 

33 n PURPOSE OR USE: 

34 U THE OVERWRITE BUFFER IS CAPABLE OF HOLDING ONE COMPLETE 

35 * OVERWRITE. IT IS USED TO TRANSFER OVERWRITES BETWEEN THE 

36 n TELETYPEWRITER, THE OVERWRITE FILE ON TAPE, AND THE 

37 * PROGRAMS TO BE OVERWRITTEN. 
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A03 


EQU DEFINITIONS 












0000013 
0000005 
01 0000031 
0000006 
0000012 


01 
02 
03 
04 
05 


IOBN0X EQU 
LENOB EQU 
BUFPATCH EQU 
OWBNDX EQU 
OW LEN EQU 


R11 
R5 

TUUTC 
M 

RIO 























0:32:20 2/06/81 **** 
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B05 




TAPE 


UTILITY MULTISCAN 


FUNCTION 










0:32:20 2/06/81 **** 




TAPE 


UTILITY ADMINISTRATIVE CONTROL 










CNRUTL W77D 




0015232 










01 


TAPUTl 


. CSECT 










02 n 


THE TAPE UTILITY 


CAPABILITY TO MANIPULATE INDIVIDUAL PHYSICAL 








03 n 


BLOCKS OP DATA 


ON TAPE. 


THE CONTENTS 


OF A PARTICULAR BLOCK CAN BE PRINTED ON 








04 n 


THE TTY, READ 


INTO MAIN 


STORE, 


OR CHANGED BY BEING OVERWRITTEN BY THE CONTENTS 


, 






05 n 


OP A DEDICATED 


TAPE 


BUFFER (I. 


OBUF). 






0015232 










09 


TAPUMON 
















10 


f 


CONTROL FOR THE MSF OF TAPE HANDLER UTILITIES 




0015232 










11 




BEGIN 


<) 




0015232 


03 000000 


131040 


310052 0010052 




12 




LAL 


R2,TUUTCTL,RA0 




0015234 


03 000002 


024000 






13 




TBN 


R0,0 M CHECK IF ABORTING IP 




0015235 


03 000003 


050000 020215 0020215 




14 




BCL 


ABORTTU 




0015237 


03 000005 


006060 






15 




LR 


R3,R0 U SAVE 1ST ENTRY DATA 




0015240 


03 000006 


024001 






16 




TBN 


R0,1 




0015241 


03 000007 


055012 


0015253 




17 




BNC 


N0T1ST # CHECK IF FIRST ENTRY P.O. NEEDED 




0015242 










18 




PRINT 


PACTIONS, FMT=<WRD<A,L,W>,WRD(T,A,P,E,U,T,I,L),WRD(C,0,M,P,L)) 












-001- 


20 


n MESSAGE PROTOTYPE 












-001- 


21 


§ 


M 


am ALW TAPEUTIL COMPL 




0015242 


03 000010 


073053 • 




-002- 


22 




BSAI 


PXMRY n SUBROUTINE pmry IS IN PROGRAM ttyapp 




0015243 


03 000011 


102200 • 




-002- 


23 




VFD 


1,1 2,0 1,0 3,2 1,0 1,1 1,0 2,0 1,0 3,0 




0015244 


03 000012 


021040 ■ 




-002- 


24 




VFD 


4,TTY0_ 4,TTY0_ 4,TTY0 4,TTY0 WRD 




0015245 


03 000013 


021042 ■ 




-002- 


25 




VFD 


4,TTY0 4,TTY0 4,TTY0 4,TTY0~ 




0015246 


03 000014 


014004 ■ 


TTYTBL 


-002- 


26 




VFD 


5,3 11,AXLW 




0015247 


03 000015 


000246 ■ 


TTYTBL 


-002- 


27 




VFD 


5, 11,tapeuTll 




0015250 


03 000016 


000302 


37020 TTYTBL 


-002- 
-001- 


28 
29 




VFD 
NOTE 


5, 11,CX0MPL 

THE VARIABLE PORTION OF THE OUTPUT MESSAGE TO BE PRINTED IS 
CONTAINED IN GENERAL REGISTERS 




0015251 










31 




CALL 


INHERRCV * INHIBIT ERROR RECOVERY FROM OTHER TAPE 




0015251 


03 000017 


137020 


27453 CTAPH 


-001- 


32 




BSA 


INHERRCV 




0015253 










33 N0T1S1 








0015253 03 000021 


124061 ■ 






34 




TBN 


R3,1 # IS THIS FIRST ENTRY TO TAPE UTIL. 




0015254 


03 000022 


055006 • 


0015262 




35 




BNC 


NOCLR K NO 




0015255 


03 000023 


003000 ■ 






36 




ZR 


RO U PREPARE TO ZERO CONTROL BLOCK. 




0015256 


03 000024 


003067 ■ 


'■■■■■ 




37 




LN 


R3,7 NO. OF WORDS IN BLOCK 




0015257 










38 


CLRX 








0015257 


03 000025 


146003 ■ 






39 




STX 


R0,R3(RA0) 0ZERO 




0015260 03 000026 036060 015257 0015257 




40 




BX 


R3,CLRX 
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TAPE UTILITY MULTISCAN FUNCTION 
TAPE UTILITY ADMINISTRATIVE CONTROL 



0015262 » 
00152*2 03 

0015263 03 

0015264 03 

0015265 03 
0015266 
0015266 

0015266 03 

0015267 03 
0015270 

0015270 03 
0015272 

0015272 03 
0015274 

0015274 03 
0015276 

0015276 03 
0015300 

0015300 03 
0015302 

0015302 03 
0015304 

0015304 03 
0015306 

0015306 03 
0015310 

0015310 03 
0015312 

0015312 03 
0015314 

0015314 03 



000030 
000031 
000032 
000033 



000034 
000035 



140000 
040022 
010417 
056000 

156462 

006000 



000036 


137000 


000040 


137000 


000042 


137000 


000044 


137000 


000046 


137000 


000050 


137000 


000052 


137000 


000054 


137000 


000056 


137000 


000060 


137000 


000062 


137000 



0000001 
015745 0015745 

0000002 
016241 0016241 

0000003 
016414 0016414 

0000004 
016157 0016157 

0000005 
016602 0016602 

0000006 
016613 0016613 

0000007 
016631 0016631 

0000010 
017460 0017460 

000001 1 
017317 0017317 

0000012 
017115 0017115 

0000013 
017656 0017656 



0:32:20 2/06/81 **** 
CNRUTL W77D 



01 # MAJOR STATE 

02 NOCLR 

03 L 

04 L 

05 RLN 

06 BPAX 

07 BPAXTUTL 



-001- 



-001- 
-001- 

-001- 
-001- 

-001- 
-001- 

-001- 
-001- 

-001- 
-001- 

-001- 
-001- 

-001- 
-001- 



08 
09 
10 

11 

12 DMPFN 



13 
14 
15 
16 

17 



RETURN 
BTSAN 
NOP 

TUFCODE 
EQU 
BL 

TUFCODE 
DMPDFN EQU 
BL 
TUFCODE 



18 DMPLFN EQU 



19 

20 

21 

22 

23 

24 INFN 

25 

26 

27 OPFN 

28 

29 



BL 

TUFCODE 
DMPSFN EQU 
BL 

TUFCODE 
EQU 
BL 

TUFCODE 
EQU 
BL 
TUFCODE 



30 AUDITFN EQU 



31 
32 



BL 
TUFCODE 



-001- 33 COPYFILEFN EQU 
-001 



34 
35 



-001- 36 COPYFN EQU 
-001 



BL 
TUFCODE 



-001 ■ 
-001- 

-001- 
-001- 



37 

38 



BL 
TUFCODE 



39 LOMASFN EQU 



40 

41 

4: 

43 



BL 
TUFCODE 
LOMASBTFN EQU 
BL 



TRANSFER VECTORS 

RO,0(RAO> 

R1,N(SUBST)(RA0) 

R0,1 

RO 

2 
2 

DMP 

(*-BPAXTUTL)/2 

DMPMON 

DMPD 

(*-BPAXTUTL)/2 

DMPDMON 

DMPL 

(*-BPAXTUTL)/2 

DMPLMON 

DMPS 

(*-BPAXTUTL)/2 

DMPSMON 

IN 

<*-BPAXTUTL)/2 

INMON 

OP 

<*-BPAXTUTL)/2 

OPMON 

AUDIT 

(*-BPAXTUTL)/2 

AUDITMON 

COPYFILE 

(*-BPAXTUTL>/2 

COPYFILEMON 

COPY 

(*-BPAXTUTL)/2 

COPYMON 

LOMAS 

(*-8PAXTUTL)/2 

LOMASMON 

LOMASBT 

(*-BPAXTUTL)/2 

LOMASBTMON 



* GET FUNCTION NUMBER. 

# GET SUBSTATE 
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TAPE UTILITY MULTISCAN FUNCTION 

TAPE UTILITY TTY INPUT MESSAGE PROCESSING ROUTINES 



0:32:20 



2/06/81 **** 



CNRUTL 



W770 



0015316 



0015316 
0015316 
0015316 
0015316 
0015320 
0015321 
0015321 
0015323 
0015324 
0015325 
0015326 
0015326 



01 INTAPE 

02 * IN:TAPE a,BLK(b,ceee) ! INPUT MESSAGE HANDLING ROUTINE. 

03 * THIS MESSAGE WILL READ A BLOCK OF DATA FROM THE TAPE AND 

04 H PLACE IT IN THE I/OBUFFER. 

05 # THIS SECTION OF CODE WITH THE AID OF SUBROUTINES FSTCHK 

06 » AND STORTBT CHECKS THE TAPE UTILITY PROGRAM FOR BEING 

07 # ACTIVE AND NOT BUSY WITH ALL CONTROL DATA PRESENT AND 

08 § LEGAL. IF THIS CHECK IS SUCCESSFUL ALL THE CONTROL DATA 

09 # FROM THE TTY ALONG WITH ALL OTHER NECESSARY DATA GENERATED 

10 K BY THIS CODE IS STORED IN THE TAPE UTILITY CONTROL BLOCK 

11 # (TUUTCTL). 

12 

13 

14 
-001- 15 

16 

17 
-001- 18 

19 

20 

21 

22 
-001- 23 



03 000064 137020 020102 0020102 
03 000066 155134 0015454 

03 000067 037020 020117 0020117 

03 000071 155131 0015454 

03 000072 003005 

03 000073 044000 

03 000074 056465 TTYTBL 



BEGIN 


() 


CALL 


FSTCHK 


BSA 


FSTCHK 


BNC 


TTYOUT 


CALL 


STORTBT 


BSA 


STORTBT 


BNC 


TTYOUT 


LN 


RO,INFN 


ST 


RO,N(UTCTL)(RAO> 


RETURN 


TTY IP 


BTSAN 


TTYJtP 



# RO ■ NONZERO 

M STORE TRACK, BLOCK, AND TAPE NUMBER 

It RO « NONZERO 

H STORE CONTROL NUMBER AT LOCATION UTCTL 
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TAPE UTILITY MULTISCAN FUNCTION 

TAPE UTILITY TTY INPUT MESSAGE PROCESSING ROUTINES 



0:32:20 2/06/81 **** 



CNRUTL 



W77D 



0015327 



0015327 
0015327 
0015327 
0015327 
0015327 03 

0015331 03 
0015332 

0015332 03 

0015334 03 

0015335 03 

0015336 03 

0015340 03 
0015341 

0015341 03 000107 
0015342 

0015342 03 

0015343 03 
0015344 

0015344 03 000112 



02 
03 
04 
05 
06 
07 
08 
09 
10 
11 
12 



01 OPTAPE 

* OP:TAPE a,BLK(b,eeee>! INPUT MESSAGE HANDLING ROUTINE. 
H THIS MESSAGE WILL WRITE A BLOCK ON TAPE WITH DATA FROM 
U THE I/OBUFFER. 

* THIS SECTION OF CODE WITH THE AID OF SUBROUTINES FSTCHK 

* AND ST«/RTBT CHECKS THE TAPE UTILITY PROGRAM FOR BEING 
n ACTIVE AND NOT BUSY WITH ALL CONTROL DATA PRESENT AND 

* LEGAL. IF THIS CHECK IS SUCCESSFUL ALL CONTROL DATA FROM 
n THE TTY ALONG WITH ALL OTHER NECESSARY DATA GENERATED BY 
tt THIS CODE IS STORED IN THE TAPE UTILITY CONTROL BLOCK 

* (TUUTCTL). 



000075 
000077 

000100 
000102 
000103 
000104 
000106 



000110 
000111 



137020 020102 0020102 
155123 0015454 



13 

14 

15 

-001- 16 
17 



037020 020117 0020117 -001- 

114000 

055117 0015454 

003605 000001 

055002 0015342 

056467 TTYTBL -001- 

103006 

044000 — i 

056465 TTYTBL -001- 



18 

19 

20 

21 

22 

23 

24 

25 

26 OKGO 

27 

28 

29 

30 



BEGIN 


() 


CALL 


FSTCHK 


BSA 


FSTCHK 


BNC 


TTYOUT 


CALL 


STORTBT 


BSA 


STORTBT 


TZ 


RO 


BNC 


TTYOUT 


CI 


R8,1 


BNC 


OKGO 


RETURN 


TTY NG 


BTSAN 


TTY NG 



LN RO,OPFN 

ST RO,N(UTCTL)(RAO> 

RETURN TTY IP 

BTSAN TTY~IP 



* RO ■ NONZERO 



U RO = NONZERO 
U NOT TRACK 1 



It STORE CONTROL NUMBER AT LOCATION UTCTL 
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TAPE UTILITY MULTISCAN FUNCTION 

TAPE UTILITY TTY INPUT MESSAGE PROCESSING ROUTINES 



0:32:20 2/06/81 **** 



CNRUTL 



W770 



00153*5 



0015345 



00153*5 

00153*5 

00153*5 

0015345 

00153*5 03 000113 

00153*7 03 000115 

0015350 03 000116 

0015352 03 000120 

0015353 03 000121 

0015355 03 000123 

0015356 03 00012* 

0015360 03 000126 

0015361 03 000127 
0015363 03 000131 
001536* 
001536* 03 000132 

0015366 03 00013* 

0015367 03 000135 

0015370 03 000136 
0015371 

0015371 03 000137 



01 DMPTAPE 

02 U DMP.-TAPE a,BLK(b,cecc)! 

03 n DMP:TAPE a,SEG dddd! 
0* K OMP:TAPE a, LABEL! 

05 # DMP:TAPE a,DIRECTRY! 

06 K INPUT MESSAGE HANDLING ROUTINE. 

07 If THESE INPUT MESSAGES DO THE FOLLOWING: 

08 * 1 DUMP A BLOCK OF TAPE TO TTY. 

09 * 2 DUMP A SEGMENT FROM TAPE TO TTY. 

10 K 3 DUMP THE TAPE LABEL FILE FROM TAPE TO TTY. 

11 K * DUMP THE TAPE DIRECTORY FILE FROM TAPE TO TTY. 
12 

13 If THIS SECTION OF CODE WITH THE AID OF SUBROUTINES FSTCHK AND 
1* # STORTBT CHECKS TO SEE IF THE TAPE UTILITY PROGRAM IS ACTIVE 

15 # AND NOT BUSY WITH ALL CONTROL DATA PRESENT AND LEGAL (THE 

16 U LABEL DUMP USES FSTCHK ONLY). IF THIS CHECK IS SUCCESSFUL ALL 

17 # CONTROL DATA FROM TTY ALONG WITH ALL OTHER DATA GENERATED BY 

18 If THIS CODE IS STORED IN THE TAPE UTILITY CONTROL BLOCK (TUUTCTL). 

19 » THIS CODE ALSO DETERMINES WHICH DUMP ROUTINE IS REQUESTED. 
20 



137020 020102 0020102 
155105 0015*5* 

003565 0012*6 TTYTBL 
05*020 0015372 

003565 001*67 TTYTBL . 
05*062 0015*37 

003565 00105* TTYTBL 
05*037 0015*17 

003565 000272 TTYTBL 
055072 0015*55 

037020 020117 0020117 

155066 0015*5* 

003001 

0**000 

056*63 TTYTBL 



21 
22 
23 

-001- 2* 
25 
26 

-001- 27 
28 
29 

-001- 30 
31 
32 

-001- 33 
34 
35 

-001- 36 
37 
38 

-001- 39 
40 
41 
42 
43 

-001- 4* 



BEGIN 

CALL 

BSA 

BNC 

SPELL 

CI 

BC 

SPELL 

CI 

BC 

SPELL 

CI 

BC 

SPELL 

CI 

BNC 

CALL 

BSA 

BNC 

LN 

ST 

RETURN 

BTSAN 



* RO = NONZERO 
ft SEGMENT CUMP? 



() 

FSTCHK 

FSTCHK 

TTYOUT 

R7,(S,E,G),0P=CI 

R7,SXEG 

CONVSEG II CONVERT SEGMENT TO BLOCK ADDRESS 

R7 / (L,A,B,E / L),0P=CI If LABEL DUMP? 

R7,LXABEL 

LABDMP If GO TO LABEL DUMP ROUTINE 

R7,(D,I,R,E,C,T,R,Y),0P=CI H DIRECTORY DUMP? 

R7,d1reeTry 

If GET TRACK AND BLOCK NUMBER 

If BLOCK DUMP ? 



DIRDMP 

R7,(B,L,K),0P=CI 

R7,BXLK 

TTYOUTNG 

STORTBT 

STORTBT 

TTYOUT 

RO,DMPFN 

RO,N(UTCTLXRAO) 

TTY PF 

TTY~PF 



If STORE TRACK, BLOCK AND TAPE NUMBER 



RO ■ NONZERO 

GET FUNCTION NUMBER 
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605 

TAPE UTILITY MULTISCAN FUNCTION 0:32:20 2/06/81 **** 

TAPE UTILITY TTY INPUT MESSAGE PROCESSING ROUTINES CNRUTL W77D 

0015372 01 CONVSEG 

02 ft THIS ROUTINE GETS THE BLOCK ADDRESS OF A REQUESTED SEGMENT 

03 ft NUMBER AND PREPARES IT FOR USE IN THE DUMP SEGMENT ROUTINE 

0015372 03 000140 131401 146674 SEGOOO 05 LAL R0,SEGTAB,RA1 ft SET RA1 TO SEGEMENT TABLE 

06 TAPUTL OW 0(142) If 12650 

-001- 07 NOTE ************* THE FIRST ADDRESS OVERWRITTEN IS 000142 ********** 

WPllZt 9.1 922 142 ° 44210 10 ST R8,N(AUX1)(RA0) ft STORE SEGMENT NUMBER 

0015375 03 000143 006010 11 LR R0,R8 

0015376 12 EOW ff 12650 

-001- 13 NOTE *************** THE LAST ADDRESS OVERWRITTEN IS 000143 ********** 

0015376 16 CALL BCDXBIN 

0015376 03 000144 0730:50 -001- 17 BSAI BXCDXBIN If SUBROUTINE BCDXBIN IS IN PROGRAM CSYSUB 

18 TAPUTL OW 0(145) ft 12650 

-001- 19 NOTE ************* THE FIRST ADDRESS OVERWRITTEN IS 000145 ********** 

0015377 03 000145 114000 22 TZ RO 

23 TAPUTL BGNP 0(3204) ft 12650 

0015400 03 000146 037000 020436 0020436 -001- 24 BL XXX440 

-001- 25 NOTE TAPUTL 'CSECT' 

-001- 26 NOTE ***************** PATCH AREA BEGINS AT 003204 **************** 

0020436 -001- 29 XXX440 PATCHAREA 

30 DPATCH NOTE ft REPLACE BCL WITH BC 

0020436 03 003204 150000 015455 0015455 31 BCL TTYOUTNG 

0020440 03 003206 006220 32 LR R9,R0 

0020441 03 003207 004237 33 SN R9,1 

0020442 34 ENDP ft 12650 
0020442 03 003210 037000 015402 OO'.SAOZ -001- 35 BL XXX442 

-001- 36 NOTE ************ LAST PATCH ADDRESS USED IS 003211 *************** 

-001- 37 NOTE ***** NUMBER OF PATCH WORDS USED IS 6 (DECIMAL) ******** 

0015402 -001- 40 XXX442 OWCONTINUE 

0015402 03 000150 110637 41 RLN R9,1 

0015403 42 EOW ft 12650 

-001- 43 NOTE *************** THE LAST ADDRESS OVERWRITTEN IS 000150 ********** 
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A06 


TAPE 


UTILITY MULTISCAN FUNCTION 








0:32:20 2/06/81 **** 


TAPE 


UTILITT TTY INPUT MESSAGE PROCESSING ROUTINES 




CNRUTL W77D 


0015403 


03 


000151 


004621 




01 


AN 


R9,1 


0015*04 


03 


000152 


042411 




02 

03 TAPUTL 


LX 
OW 


R0,R9(RA1) It GET BLOCK ADDRESS 
0(153) U 12650 










-001- 


04 


NOTE 


************* THE FIRST ADDRESS OVERWRITTEN IS 000153 ********** 


0015405 


03 


000153 


014000 




07 

08 DPATCH 


TZ 
NOTE 


RO n LOGICAL BLOCK ADR ■ ? 
! REPLACE BNCL WITH BNC 


0015406 


03 


050400 020445 0020445 




09 


BNCL 


CALBXB 


0015410 


03 


000156 


003605 000001 




10 


CI 


R8,1 K IS SEG NO. GREATER THAN 1 


0015412 


03 


000160 


055043 0015455 




11 


BNC 


TTYOUTNG H SEGMENT NUMBER TOO LARGE 


0015413 


03 


000161 


003232 




12 


LN 


R9,10 » SAME AS TYPING 


0015414 










13 


TAKEOUT 


1 


0015414 


03 


000162 


006000 


-001- 


14 

15 TAPUTL 


LR 
BGNP 


0,0 

0(3212) U 12650 


0015415 


03 


000163 


037000 020444 0020444 


-001- 


16 


BL 


XXX449 










-001- 


17 


NOTE 


TAPUTL 'CSECT' 










-001- 


18 


NOTE 


***************** PATCH AREA BEGINS AT 003212 **************** 


0020444 








-001- 


21 XXX449 


PATCHAREA 


0020444 


03 


003212 


153004 0020450 




22 


B 


TRK4 


0020445 










23 CALBXB 






0020445 










24 


CALL 


BINXBCD 


0020445 


03 


003213 


137020 110023 CSYSUB 


-001- 


25 


BSA 


BINXBCD 


0020447 


03 


003215 


106221 




26 


LR 


R9,R1 


0020450 










27 TRK4 






0020450 


03 


003216 


103204 




28 


LN 


R8,4 K FAKE TRK NO. USE IN SUBROUTINE STORTBT 


0020451 


03 


003217 


003622 003777 




29 


NI 


R9,M(BLKADR) 


0020453 










30 


CALL 


STORTBT 


0020453 


03 


003221 


037020 020117 0020117 


-001- 


31 


BSA 


STORTBT 


0020455 


03 


003223 


150400 015454 0015454 




32 


BNCL 


TTYOUT 


0020457 


03 


003225 


003004 




33 


LN 


RO,DMPSFN 


0020460 


03 


003226 


044000 




34 


ST 


RO,N(UTCTL)(RAO) 


0020461 










35 


RETURN 


TTY PF 


0020461 


03 


003227 


056463 TTYTBL 


-001- 


36 


BTSAN 


TTY PF 


0020462 










37 


ENDP 


NR M 12650 










-001- 


38 


NOTE 


************ LAST PATCH ADDRESS USED IS 003227 *************** 










-001- 


39 


NOTE 


***** NUMBER OF PATCH WORDS USED IS 14 (DECIMAL) ******** 


0015417 










42 


EON 


n 12650 










-001- 


43 


NOTE 


*************** THE LAST ADDRESS OVERWRITTEN IS 000164 ********** 
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TAPE UTILITY MULTISCAN FUNCTION 

TAPE UTILITY TTY INPUT MESSAGE PROCESSING ROUTINES 



0:32:20 2/06/81 **** 



CNRUTL 



W77D 



0015417 



0015*17 
0015421 
0015422 
0015423 
0015424 
0015426 
0015426 
0015430 
0015431 
0015431 
0015433 
0015434 
0015435 
0015436 
0015436 



03 000165 
03 000167 
03 000170 
03 000171 
03 000172 

03 000174 
03 000176 



103401 
010413 
004401 
006200 
003401 



004000 MASACS 



000017 MASACS 



037020 110023 CSYSUB 
106221 



-001 



03 000177 037020 020117 0020117 

03 000201 155021 0015454 

03 000202 003002 

03 000203 044000 

03 000204 056463 TTYTBL 






03 DIRDMP 

04 If THIS ROUTINE GETS THE TRACK AND BLOCK ADDRESSES OF THE DIRECTRY 

05 # FILE FOR A DIRECTORY DUMP 



07 
08 
09 
10 
11 
12 
13 
14 
15 
001- 16 
17 
18 
1? 
20 
21 



-001- 



LI 


RO,DIRTRK 


RRN 


RO,S (TRACK) 


AN 


R0,1 


LR 


R8,R0 


LI 


R0,DIRLOC 


CALL 


BINXBCD 


BSA 


BINXBCD 


LR 


R9,R1 


CALL 


STORTBT 


BSA 


STORTBT 


BNC 


TTYOUT 


LN 


R0,DMPDFN 


ST 


RO,N(UTCTL)(RAO) 


RETURN 


TTY PF 


BTSAN 


TTY PF 



H LOAD TRACK NUMBER 






* R1 HAS NUMBER FROM SUBROUTINE BINBCD 
n LOAD BLOCK ADDRESS 



# R1 HAS BCD NUMBER FROM SUBROUTINE BINXBCD 
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C06 



TAPE UTILITr MULTISCAN FUNCTION 

TAPE UTILITY TTY INPUT MESSAGE PROCESSING ROUTINES 



0:32:20 



2/06/81 



CNRUTL 



W77D 



0015437 



0015*37 
0015*40 
0015**1 
0015*42 
0015442 
0015443 
0015445 
0015446 
0015447 
0015450 
0015451 
0015452 
0015453 
0015453 



03 000205 106006 
03 000206 014000 
03 000207 054014 

03 000210 073030 
03 000211 130422 
03 000213 004037 
03 000214 005020 
03 000215 055006 
03 000216 044006 
03 000217 003003 
03 000220 044000 

03 000221 056463 





■ 


01 
02 






03 






04 






06 
07 


0015455 




08 
09 


— - — - 


-001- 


10 


020006 TDATA 




11 
12 






13 


0015455 




14 







15 







16 


■._«___ 




17 
18 


TTYTBL 


-001- 


19 



0015454 
0015454 

0015454 03 000222 156400 

0015455 

0015455 

0015455 03 000223 156467 



-001- 



TTYTBL -001- 



COMMON NONRESIDENT UTILITIES 
0:32:20 2/06/81 TRADE SECRET 



LABDMP 

# THIS IS THE CONTINUATION OF THE TTY: INPUT MESSAGE ROUTINE FOR 

# THE DMP:TAPE LABEL FILE. THE REMAINDER OF THE INITIAL CHECKS AND 

# THE SETTING UP OF THE TU CONTROL BLOCK IS DONE HERE. 

# PUT TAPE NUMBER INTO RO 
U WAS NUMBER TYPED AT TTY? 

K CONVERT TAPE NUMBER TO BINARY 

H SUBROUTINE BCDXBIN IS IN PROGRAM CSYSUB 

n MAX NUMBER OF TAPE ON SYSTEM 

n ADJUST FOR BASE 

It IS TAP NUMBER WITHIN LIMITS 

# STORE TAPE NUMBER IN CONTROL BLOCK 
it GET FUNCTION CODE 
U STORE IN CONTROL BLOCK 



LR 


R0,R6 


TZ 


RO 


BC 


TTYOUTNG 


CALL 


BCDXBIN 


BSAI 


BXCDXBIN 


LL 


R1,TAPETBL 


SN 


R1,1 


SR 


R1,R0 


BNC 


TTYOUTNG 


ST 


RO,N(TPNO)(RA0) 


LN 


RO,DMPLFN 


ST 


RO,N(UTCTL)(RAO) 


RETURN 


TTY PF 


BTSAN 


TTY PF 



25 


U COMMON TTY ERROR 


RESPONSE 


RETURNS 


26 


TTYOUT 








27 


RETURN 








28 


BTSA 








29 


TTYOUTNG 






■ , 


30 


RETURN 


TTY 


NG 




31 


BTSAN 


TTY 


NG 
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P06 



TAPE UTILITY KULTISCAN FUNCTION 

TAPE UTILITY TTY INPUT MESSAGE PROCESSING ROUTINES 



0015456 



0015456 



0015456 

0015456 
0015456 
0015456 03 

0015460 03 

0015461 03 

0015462 03 

0015463 03 

0015464 03 

0015465 03 

0015466 03 

0015467 03 



02 n 

03 n 

04 U 

05 n 

06 
07 
08 
09 
10 
11 
12 



000224 137020 020102 0020102 

000226 155774 0015454 

000227 003224 

000230 044226 

000231 044165 

000232 003240 

000233 044241 

000234 003007 

000235 044000 



-001 • 



-001 • 



14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 



CALL 
BSA 
BNC 
LN 
ST 
ST 
ZR 
ST 
LN 
ST 
TAPUTL OW 

NOTE 



BEGIN () 



FSTCHK 

FSTCHK 

TTYOUT 

R9,1*E(W(TAPN0)>+0 

R9,N(TPN0)(RA0) 

R7,N(SGN0)(RA0) 

R10 

R10,N(BKN0)(RA0) 

RO,AUDITFN 

R0,N(UTCTLKRA0) 

0(236) 

************* the 



0s32:20 2/06/81 **** 
CNRUTL W77D 



01 AUDITAPE 
AUDIT:TAPE;dd! INPUT MESSAGE HANDLING ROUTINE. 
THIS INPUT MESSAGE HAS A FORMAT THAT WILL COMPARE TAPES 
AND PRINT TOTAL MISMATCHES OR DO A DETAILED COMPARE 
AND/OR CORRECT OF TAPES. 

THIS SECTION OF CODE WITH THE AID OF SUBROUTINE FSTCHK 
CHECKS THE TAPE UTILITY PROGRAM FOR BEING ACTIVE AND NOT 
BUSY. IF THIS CHECK IS SUCCESSFUL CONTROL DATA FROM THE 
TTY ALONG WITH ALL OTHER NECESSARY DATA GENERATED BY THIS 
CODE IS STORED IN THE TAPE UTILITY CONTROL BLOCK (TUUTCTL). 



n LOAD COMPARE AND MASTER TAPE NUMBERS 

* STORE TAPE NUMBER 
U SAVE ACTION OPTION 
H SET TRACK AND BLOCK EQUAL TO ZERO 

# SAVE TRACK AND BLOCK NUMBER 
U GET FUNCTION CODE 
U SAVE FUNCTION CODE 
/K3E790260 

FIRST ADDRESS OVERWRITTEN IS 000236 ********** 



0015470 

0015470 03 000236 056465 

0015471 



29 RETURN TTY IP 

TTYTBL -001- 30 BTSAN TTY~IP 

„„, 31 EOW (H3E790260 

-001- 32 NOTE *************** THE LAST ADDRESS OVERWRITTEN IS 000236 ********** 
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E06 


■ 


TAPE UTILITY MULTISCAN 


FUNCTION 






0:32:20 2/06/81 **** 


TAPE UTILITT TTY INPUT 


MESSAGE PROCESSING ROUTINES 




CNRUTL W77D 


0015471 


01 


COPYTAPE 






02 n 


COPY:TAPE(a,b,eccc),TO(d 


,e,ffff):gggg! 






03 tt 


COPY:TAPE(a),TO(d)! 








04 tt 


INPUT MESSAGE HANDLING ROUTINE. 






05 * 


THESE INPUT MESSAGES WILL ALLOW THE COPYING OF ANY TRACK 




06 tt 


AND BLOCK OF ONE TAPE TO 


ANY TRACK AND 


BLOCK OF THE OTHER 




07 tt 


FOR ANY GIVEN NUMBER OF 


BLOCKS. WHEN 


LENGTH IS OMITTED ONLY 


08 tt 


ONE BLOCK IS COPIED. A COPY SPECIFYING 


TAPE NUMBERS ONLY 




09 tt 


WILL COPY ALL TRACKS (EXCEPT TRACK ONE) FROM ONE TAPE TO 




10 tt 


THE OTHER 








0015471 11 










12 n 


THIS SECTION OF CODE WITH 




13 tt 


CHECKS THE TAPE UTILITY 


FOR BEING ACTIVE AND NOT BUSY WITH 




14 # 


ALL CONTROL DATA PRESENT 


AND LEGAL. IF 


THIS CHECK IS SUCCESSFUL 


15 tt 


ALL CONTROL DATA FROM TTY ALONG WITH ALL OTHER DATA GENERATED 


16 IK 


BY THIS CODE IS STORED IN THE TAPE UTILITY CONTROL BLOCK (TUCOPYCTL). 


0015471 17 










is tt 


NOTE! TUCOPYCTL HAS THE 


SAME TEMPORARY 


STORE ADDRESS AS TUUTCTL 


0015471 


20 


BEGIN 


() 




0015471 


21 


CALL 


FSTCHK 




0015471 03 000237 137020 020102 0020102 -001- 22 


BSA 


FSTCHK 




0015473 03 000241 155761 • 


0015454 23 


BNC 


TTYOUT 




0015474 03 000242 014146 ■ 


24 


TI 


R6 


tt WAS MASTER TAPE NUMBER TYPED? 


0015475 03 000243 054760 ■ 


0015455 25 


BC 


TTYOUTNG 




0015476 03 000244 006006 


26 


LR 


R0,R6 




0015477 


27 


CALL 


BCDXBIN 




0015477 03 000245 073030 


-001- 28 


BSAI 


BXCDXBIN 


tt SUBROUTINE BCDXBIN IS IN PROGRAM CSYSUB 


0015500 03 000246 106140 


29 


LR 


R6,R0 


It PUT CONVERTED TAPE NUMBER BACK INTO R6 


0015501 03 000247 014252 


30 


TZ 


R10 


tt WAS COMPARE TAPE NUMBER TYPED? 


0015502 03 000250 054753 


— — 0015455 31 


BC 


TTYOUTNG 


, 


0015503 03 000251 006012 


32 


LR 


R0,R10 




0015504 


33 


CALL 


BCDXBIN 




0015504 03 000252 073030 


-001- 34 


BSAI 


BXCDXBIN 


It SUBROUTINE BCDXBIN IS IN PROGRAM CSYSUB 


0015505 03 000253 106106 




LR 


R4,R6 




0015506 03 000254 006120 


— — 36 


LR 


R5,R0 


tt RO HAS COMPARE TAPE NUMBER 


0015507 03 000255 014505 


37 


OR 


R4,R5 


tt R5 (COMPARE TAPE NUMBER) TO BE SAVE 


0015510 03 000256 003502 


1 77774 38 


NI 


R4,-*(TAPN0> 


■ 


0015512 03 000260 055743 


0015455 39 


BNC 


TTYOUTNG 




0015513 03 000261 010416 


40 


RLN 


R0,W(TAPN0) 


tt MOVE COMPARE TAPE NUMBER UP IN REGISTER 


0015514 03 000262 016006 


300003 41 


IRM 


R0,R6,M(TAPN0) 


tt PUT MASTER TAPE NUMBER IN WITH COMPARE 


0015516 03 000264 044006 


42 


ST 


R0,N(TPNO)(RA0) 


tt STORE TAPE NUMBER IN CONTROL BLOCK 




44 


ft THE NEXT FEW 


LINES OF CODE CHECK 


TO SEE IF AN ALL-TRACKS 




45 


n COPY IS REQUESTED 




0015517 03 000265 006027 


46 


LR 


R1,R7 




0015520 03 000266 014433 


47 


OR 


R1,R11 




0015521 03 000267 014430 


48 


OR 


R1,R8 


■ 


■ 


49 


TAPUTL OW 


0(270) 


tt 11977 
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TAPE UTILITY MULTISCAN FUNCTION 

TAPE UTILITY TTY INPUT MESSAGE PROCESSING ROUTINES 

-001- 01 



NOTE 



F06 



0:32:20 2/06/.81 **** 
CNRUTL W77D 
************* THE FIRST ADDRESS OVERWRITTEN IS 000270 ********** 



0015522 03 000270 037000 112331 0000677 



04 CPATCH BGNP 0(677) # 11977 

-001- 05 BL XXX486 

-001- 06 NOTE CPATCH 'CSECT' 

-001- 07 NOTE ***************** PATCH AREA BEGINS AT 000677 **************** 



0112331 

0112331 10 

0112332 10 

0112333 10 

0112334 10 

0112336 10 

0112337 10 

0112340 10 
0112341 
0112341 

0112341 10 



000677 172054 

000700 072075 

000701 014422 

000702 050000 015622 0000370 

000704 014063 

000705 055002 0112341 

000706 003061 



000707 137000 015524 0000272 



-001- 10 UX486 PATCHAREA 



-001- 
-001- 
-001- 



11 

12 

13 

14 

15 

16 

17 

18 NOTZRO 

19 

20 

21 

22 



GN 

GN 

OR 

BCL 

TZ 

BNC 

LN 

ENDP 
BL 

NOTE 
NOTE 



R2,12 

R3,13 

R1,R2 

ATCPY 

R3 

NOTZRO 

R3,1 



* ALL TRACKS COPY 

U SET UP TO COPY 1 BLK ONLY 



* 11977 
XXX488 

************ LAST PATCH ADDRESS USED IS 000710 *************** 
***** NUMBER OF PATCH WORDS USED IS 10 (DECIMAL) ******** 



0015524 

0015524 03 000272 104077 

0015525 



-001- 25 XXX488 OWCONTINUE 

26 SN R3,1 # TO COPY CORRECT NUMBER OF BLKS 

„„, H EOW U 11977 

-001- 28 NOTE *************** THE LAST ADDRESS OVERWRITTEN IS 000272 ********** 



0015525 03 000273 004177 

0015526 03 000274 004277 

0015527 03 000275 014273 

0015530 03 000276 054725 0015455 

0015531 03 000277 016427 177774 

0015533 03 000301 014021 

0015534 03 000302 055721 0015455 

0015535 03 000303 010565 

0015536 03 000304 016413 177774 

0015540 03 000306 014000 

0015541 03 000307 055714 0015455 

0015542 03 000310 010665 

0015543 03 000311 016430 174000 

0015545 03 000313 014021 

0015546 03 000314 055707 0015455 

0015547 03 000315 014570 

0015550 03 000316 044161 



31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 



It THIS CODE 
SN 
SN 
TZ 
BC 
LRM 
TZ 
BNC 
RLN 
LRM 
TZ 
BNC 
RLN 
LRM 
TZ 
BNC 
OR 
ST 



49 TAPUTL OW 



SETS UP FOR A REGULAR 
R7,1 
R11,1 
R11 

TTYOUTNG 
R1,R7,-*SK(2) 
R1 

TTYOUTNG 
R7,S(TRCK) 
R0,R11,-MSK(2) 
RO 

TTYOUTNG 
R11,S(TRCK) 
Rl,R8,-tl(BLKADR) 
R1 

TTYOUTNG 
R7,R8 

R7,N(MBKN0)(RA0) 
0(317) 



COPY SE8UENCE 

# ADJUST FOR TRACK BASE 
n ADJUST FOR TRACK BASE 
« CAN'T COPY TRACK 1 

# R7 HAS TRACK NUMBER OF MASTER 

It CHECK IF TRACK NUMBER WITHIN LIMITS 

# POSITION TRACK NUMBER IN UPPER BITS 
U R11 HAS TRACK NUMBER OF COMPARE 



n R8 HAS MASTER BLOCK NUMBER 

» CHECK IF BLOCK NUMBER WITHIN LIMITS 

# PUT TRACK AND BLOCK TOGETHER 

# STORE IN CENTRAL BLOCK 

# 12437 
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S06 



TAPE UTILITY MULTISCAN FUNCTION 

TAPE UTILITY TTY INPUT MESSAGE PROCESSING ROUTINES 

-001- 01 



NOTE 



0:32:20 2/06/81 **** 
CNRUTL W77D 
************* THE FIRST ADDRESS OVERWRITTEN IS 000317 ********** 



0015551 03 000317 016402 17A000 
0015553 



0* 


LRU 


05 


EOW 


001- 06 


NOTE 



R0,R2,-M(BLKADR) H R2 HAS COMPARE BLK NO. 

# 12A37 
*************** THE LAST ADDRESS OVERWRITTEN IS 000320 ********** 



0015553 03 000321 OHOOO -- 

0015554 03 000322 055701 -- 



0? U 

0015455 10 BNC 

11 TAPUTL OW 

-001- 12 NOTE 



RO 

TTYOUTNG 

0(323) # 12437 

************* THE FIRST ADDRESS OVERWRITTEN IS 000323 ********** 



0015555 03 000323 014662 
0015556 



] 5 6 
-001- 17 



OR R11,R2 

EOW n 12437 

NOTE *************** THE LAST ADDRESS OVERWRITTEN IS 000323 ********** 



0015556 03 000324 044263 

0015557 03 000325 003001 
0015560 03 000326 044011 



21 
22 



ST R11,N(CBKN0)(RA0) 

LN RO 1 

ST R0^N(AUX2)(RA0) 



n COPY 1 TRACK 



24 # THE NEXT FEW LINES WILL CHECK FOR WRAP-AROUND 

25 TAPUTL OW 0(327) # 12437 

-001- 26 NOTE ************* THE FIRST ADDRESS OVERWRITTEN IS 000327 ********** 



0015561 03 000327 001443 

0015562 03 000330 001603 
0015563 



0015563 

0015563 03 000331 006010 

0015564 03 000332 003400 177251 MASACS 
0015566 03 000334 054667 0015455 



0015567 

0015567 03 000335 006002 

0015570 03 000336 003400 177251 MASACS 

0015572 03 000340 054663 0015455 

0015573 03 000341 044050 

0015574 





29 


AR 




30 


AR 




31 


EOW 


001- 


32 


NOTE 




35 


IF 


003- 


36 


LR 


003- 


37 


SI 


001- 


38 


BC 




39 TAPUTL 


OW 


001- 


40 


NOTE 




43 


IF 


003- 


44 


LR 


003- 


45 


SI 


001- 


46 


BC 




47 


ST 




48 


EOW 


001- 


49 


NOTE 



R2,R3 # ADD COMPR BLK NO. AND NO. OF BLKS TO COPY 

R8,R3 

H 12437 
*************** THE LAST ADDRESS OVERWRITTEN IS 000330 ********** 

R8 >= A.BLKMAX THEN B TTYOUTNG 

R0,R8 

R0,BLKHAX 

TTYOUTNG 
0(335) #12437 

************* THE FIRST ADDRESS OVERWRITTEN IS 000335 ********** 

R2 >= A.BLKMAX THEN B TTYOUTNG 

R0,R2 

RO,BLKMAX 

TTYOUTNG 
R2,N(LASBLK)(RA0) H STORE LAST BLOCK TO COPY IN CONTROL BLOCK 

# 12437 
*************** THE LAST ADDRESS OVERWRITTEN IS 000341 ********* 



COMMON NONRESIDENT UTILITIES 
0:32:20 2/06/81 TRADE SECRET 



see Trade secret restrictive notice on cover sheet cnrutl 



PR-1C954-50 
ISSUE 05 PAGE 



40 









A07 


TAPE UTILITY MULTISCAN 


FUNCTION 


0:32:20 2/06/81 **** 


TAPE UTILITY TTY INPUT 


MESSAGE PROCESSING ROUTINES CNRUTL W77D 

* 








05 U IP CONDITIONS ARE MEET THIS CODE STARTS THE REGULAR COPY SEQUENCE 


0015574 03 0003*2 


020126 




06 CR R5,R6 K COMPARE TAPE NUMBERS 


0015575 03 000343 


055040 


0015635 


07 BNC PRINTIP * NOT THE SAME 

0? # IF CONDITIONS ARE MEET THIS CODE STARTS THE SAME TAPE 
10 n DIFFERENT TRACK COPY SEQUENCE 


0015576 03 000344 


072007 




11 GN R0,7 It GET TRACK NUMBERS FROM 


0015577 03 000345 


072033 




12 GN R1,11 


0015600 03 000346 


020020 




13 CR R1,R0 


0015601 03 000347 


055034 


0015635 


14 BNC PRINTIP * TACK NUMBERS NO THE SAME 

16 n IF CONDITIONS ARE MEET THIS CODE STARTS THE. SAME TAPE 

17 n SAME TRACK COPY SEQUENCE 

18 TAPUTL OW 0(350) U 12437 

-001- 19 NOTE ************* THE FIRST ADDRESS OVERWRITTEN IS 000350 ********** 

22 CPATCH BGNP 0(671) # 12437 


0015602 03 000350 


037000 


112323 0000671 


-001- 23 BL UZ516 

-001- 24 NOTE CPATCH 'CSECT' 

-001- 25 NOTE ***************** PATCH AREA BEGINS AT 000671 **************** 


0112323 






-001- 28 XXX516 PATCHAREA 


0112323 10 000671 


172054 




29 GN R2,12 U R2 " ENDING BLK NO. 


0112324 10 000672 


072075 




30 GN R3,13 


0112325 10 000673 


072210 




31 GN R8,8 


0112326 10 000674 


020050 




32 CR R2,R8 # R8 = STARTING BLK NO. 


0112327 






33 ENDP # 12437 


0112327 10 000675 


037000 


D15604 0000352 


-001- 34 BL XXX518 

-001- 35 NOTE ************ LAST PATCH ADDRESS USED IS 000676 *************** 








-001- 36 NOTE ***** NUMBER OF PATCH WORDS USED IS 6 (DECIMAL) ******** 


0015604 






-001- 39 ZXX518 OWCONTINUE 


0015604 03 000352 


154651 


0015455 


40 BC TTYOUTNG 


0015605 






41 IF R2 > R8 THEN B ABOVE 


0015605 03 000353 


006010 




-003- 42 LR R0,R8 


0015606 03 000354 


005002 




-003- 43 SR R0,R2 


0015607 03 000355 


055006 


0015615 


-001- 44 BNC ABOVE 


0015610 03 000356 


005203 




45 SR R8,R3 M R8=READ ADR R2<=WRITE ADR R3=AM0UNT OF BLKS 

TO COPY 


0015611 






47 IF R2 > R8 THEN B TTYOUTNG 


0015611 03 000357 


006010 




-003- 48 LR R0,R8 


0015612 03 000360 


005002 




-003- 49 SR R0,R2 
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B07 



TAPE UTILITr MULTISCAN FUNCTION 

TAPE UTILW TTY INPUT MESSAGE PROCESSING ROUTINES 



0015613 03 000361 055642 

0015614 . 



0015614 03 000362 053021 



0015615 

0015615 03 000363 101603 
0015616 

0015616 03 000364 006002 

0015617 03 000365 005010 
0015620 03 000366 055635 
0015621 



0015455 



0015635 



0015455 



-001- 


01 




BNC 




02 




EOW 


-001- 


03 




NOTE 




07 




B 




08 


TAPUTL 


OH 


-001- 


09 




NOTE 




12 


ABOVE 






13 




AR 




14 




IF 


-003- 


15 




LR 


-003- 


16 




SR 


-001- 


17 




BNC 




18 




EOW 


-001- 


19 




NOTE 



0:32:20 2/06/81 **** 
CNRUTL W77D 

TTTOUTNG 

* 12437 
*************** the LAST ADDRESS OVERWRITTEN IS 000361 ********* 



PRINTIP 

0(363) n 12437 

************* THE FIRST ADDRESS OVERWRITTEN IS 000363 ********** 



R8,R3 

R2 < R8 THEN B TTYOUTNG 

R0,R2 

R0,R8 

TTTOUTNG 

* 12437 
*************** THE LAST ADDRESS OVERWRITTEN IS 000366 ********* 



0015621 03 000367 053014 0015635 



23 



PRINTIP 



0015622 



•0015622 03 000370 120126 
0015623 03 000371 054632 



' 



0015455 



0015624 03 000372 003401 004001 
0015626 



0015626 03 000374 044001 

0015627 03 000375 044003 

0015630 03 000376 003421 000526 MASACS 

0015632 03 000400 044030 

0015633 03 000401 003003 

0015634 03 000402 044011 

0015635 

0015635 03 000403 103011 





30 




CR 




31 




BC 




32 


TAPUTL 


OW 


-001- 


33 




NOTE 




36 




LI 




37 




EOW 


-001- 


38 




NOTE 




42 




ST 




43 




ST 




44 




LI 




45 




ST 




46 




LN 




47 




ST 




48 


PRINTIP 



26 ATCPT 

27 * THIS ROUTINE SETS UP THE TU CONTROL BLOCK AND STARTS THE 

28 K ALL TRACKS COPT SEQUENCE 

R5,R6 

TTYOUTNG 

0(372) n 12809 

************* THE FIRST ADDRESS OVERWRITTEN IS 000372 ********** 

R0,1*E(S(TRCK))+1 # STARTING TRK AND BLK 

# 12809 
*************** THE LAST ADDRESS OVERWRITTEN IS 000373 ********* 



RO,N(MBKNO)(RAO) 

RO,N(CBKNO)(RAO) 

R1,BLKMAX-1 

R1,N(LASBLK)(RA0) 

R0,3 

R0,N(AUX2)(RA0) 



U TOTAL TRACKS TO COPY 



49 



LN 



RO,COPYFN 
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TAPE UTILITY MULTISCAN FUNCTION 

TAPE UTILITY TTY INPUT MESSAGE PROCESSING ROUTINES 



0015636 03 000*04 044000 
0015637 

0015637 03 000405 056465 



TTYTBL 



01 

02 

-001- 03 



C07 



ST RO,N(UTCTL)(RAO> 
RETURN TTY IP 
BTSAN TTYIP 



0:32:20 2/06/81 **** 
CNRUTL H770 
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P07 



TAPE UTILITY MULTISCAN FUNCTION 

TAPE UTILITY TTY INPUT MESSAGE PROCESSING ROUTINES 



0015640 



0015640 



0015640 



0:32:20 2/06/81 **** 
CNRUTL W77D 



02 


« 


03 


It 


04 


n 


05 


it 


06 




07 


n 


08 


# 


0? 


tt 


10 


it 


11 


it 


12 




13 


it 



01 COPTFILE 
COPY: FILE dd! INPUT MESSAGE HANDLING ROUTINE. 
THIS INPUT MESSAGE HAS A FORMAT THAT WILL ALLOW COPYING 

THE T "pI S?R^O E RY FR °F?L°E?! "" *" T ° ™ '^ (EXCEPT 

THIS SECTION OF CODE WITH THE AID OF SUBROUTINE FSTCHK 
CHECKS THE TAPE UTILITY PROGRAM FOR BEING ACTIVE AND NOT 
!. U n»; ILI HE CHECK IS SUCCESSFUL CONTROL DATA FROM THE TTY 
ALONG WITH ALL OTHER NSCESSARY DATA GENERATED BY THIS CODE 
IS STORED IN THE TAPE UTILITY CONTROL BLOCK (TUCOPYCTL). 

NOTE! TUCOPYCTL HAS THE SAME TEMPORARY STORE ADDRESS AS TUUTCTL. 



0015640 

0015640 

0015640 03 000406 137020 020102 0020102 

0015642 03 000410 155612 0015454 



0015643 03 000411 003401 011003 
0015645 

0015645 03 000413 006000 

0015646 03 000414 006000 

0015647 03 000415 006000 

0015650 



0015650 03 000416 044144 — 

0015651 03 000417 044165 



0015652 03 000420 037000 020413 0020413 



0020413 

0020413 03 003161 114210 

0020414 03 003162 055002 0020416 

0020415 03 003163 004017 

0020416 



-001' 



-00 1 



-001- 
-001' 
-OOV 

-001- 



15 BEGIN 

16 CALL 

17 BSA 

18 BNC 

19 TAPUTL OW 

20 NOTE 



« 

FSTCHK 

FSTCHK 

TTYOUT 

0(411) H 12649 

************* THE FIRST ADDRESS OVERWRITTEN IS 000411 ********** 



23 
24 
25 
26 
27 
28 
29 
30 



CLIENT NUMBER, EXPLICIT BIT, AND WORD COUNT 
LI R0,TAPUCLNT*E(11)+E(9)+3 
TAKEOUT 3 
LR 0,0 
LR 0,0 
LR 0,0 

EOW tt 12649 

NOTE *************** THE LAST ADDRESS OVERWRITTEN IS 000415 ********** 



33 ST 

34 ST 

35 TAPUTL OW 
-001- 36 NOTE 



tt REGISTERS 4,5,6 AND 7 HOLDS FILE NAME 



R6,4(RA0) 

R7,5(RA0) 

0(420) tt 12649 

************* THE FIRST ADDRESS OVERWRITTEN IS 000420 ********** 



-001- 
-001- 
-001- 



-00V 



39 TAPUTL BGNP 

40 BL 

41 NOTE 

42 NOTE 



0(3161) n 12649 

XXX553 

TAPUTL 'CSECT' 

***************** PATCH AREA BEG i NS AT 003161 **************** 



45 XXX553 PATCHAREA 

46 TZ R8 

47 BNC TZR9 

48 SN R0,1 

49 TZR9 



COMMON NONRESIDENT UTILITIES 
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IN R8 ? 




It SUBTRACT 1 FROM WORD COUNT 


. 
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ER SHEET 
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E07 



TAPE UTILITr MULTISCAN FUNCTION 

TAPE UTILITY TTY INPUT MESSAGE PROCESSING ROUTINES 



0020416 03 003164 114231 

0020417 03' 003165 055002 0020421 

0020420 03 003166 004017 

0020421 

0020421 03 003167 144003 

0020422 03 003170 044206 

0020423 03 003171 044227 

0020424 

0020424 03 003172 037000 015654 0015654 



-001- 
-001- 
-001- 



01 

02 

03 

04 STCOU 

05 

06 

07 

08 

D9 

10 

11 



TZ 

BNC 

SN 

ST 

ST 

ST 

ENDP 

BL 

NOTE 

NOTE 



R9 

STCOU 

R0,1 



0:32:20 2/06/81 **** 
CNRUTL W77D 



U CHAR IN R9 ? 

n SUBTRACT 1 FROM WORD COUNT 



R0,3(RA0) 
R8,6(RA0) 
R9,7(RA0) 

U 12649 
XXX555 

************ LAST PATCH ADDRESS USED IS 003173 *************** 
***** NUMBER OF PATCH WORDS USED IS 11 (DECIMAL) ******** 



0015654 

0015654 03 000422 103010 

0015655 



-001- 14 UX555 OWCONTINUE 

15 LN RO,COPYFILEFN 

16 EOW U 12649 

-001- 17 NOTE *************** THE LAST ADDRESS OVERWRITTEN IS 000422 ********** 



0015655 03 000423 044000 
0015656 

0015656 03 000424 056465 



TTYTBL 



20 

21 

-001- 22 



ST R0,N(UTCTL)(RA0) 
RETURN TTY IP 
BTSAN TTY IP 



K STORE FUNCTION CODE 
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TAPE UTILITY MULTISCAN FUNCTION 

TAPE UTILITY TTY INPUT MESSAGE PROCESSING ROUTINES 



0:32:20 2/06/81 **** 



CNRUTL 



W77D 



0015657 



0015657 



02 


n 


03 


tt 


04 


tt 


05 


tt 


06 




07 


it 


08 


# 


09 


tt 


10 


tt 


11 


tt 


12 


H 


13 


tt 


14 


tt 


15 


» 


16 


tt 



01 LODOMAS 



LOD:OMAS;TAPE a! 
LOD:OMAS;TAPE a:ffff! 
LOD:OMAS;BOOT! 
LOD:0MAS;B00T:FULL! 

INPUT MESSAGE HANDLING ROUTINE FOR OFFLINE MAS LOAD. 
TWO VARIATIONS EXISTS TO LOAD OMAS FROM TAPE. 

TAPE - ALLOWS INPUTTING THE GENERIC AND/OR TRNSLN FILES (NO PATCHES). 

BOOT - PERFORMS AN ACTUAL BOOTSTRAP VIA THE OFFLINE CC. WHEN COMPLETED, 
THE OMAS WILL BE LOADED WITH THE DATA CONTAINED IN THE GENERIC, 
TRANSLATION,AND PATCH FILES. ACTIVE OVERWRITES ARE LOADED. 
R6 = TAPE/BOOT 
R7 = a (0 OR 1) 

R10 = ffff (GENERIC OR TRNSLN) 
R10 = FULL (FULL MEMORY RELOAD) 



0015657 
0015657 
0015657 03 000425 137020 020102 0020102 

0015661 03 000427 155573 0015454 

0015662 03 000430 003040 



-001' 



-001- 



18 
19 
20 
21 
22 



BEGIN 

CALL 

BSA 

BNC 

ZR 



23 TAPUTL OW 

24 NOTE 



() 

FSTCHK 

FSTCHK 

TTYOUT 

R2 

0(431) U 12447 

************* the FIRST ADDRESS OVERWRITTEN IS 000431 ********** 



0015663 03 000431 003605 001016 TTYTBL 
0015665 



27 

-001- 28 

29 

-001- 30 



SPELL R8,(B,0,0,T),0P=CI 

CI R8,BX00T 

EOW n 12447 

NOTE *************** THE LAST ADDRESS OVERWRITTEN IS 000432 ********** 



0015665 

0015665 03 000433 055011 



0015676 



33 

-001- 34 

35 TAPUTL 
-001- 36 



IF CF = 1 THEN RGBEGIN 
BNC IFS573 

OW 0(434) tt 13053 

NOTE ************* THE FIRST ADDRESS OVERWRITTEN IS 000434 
********** 



0015666 03 000434 003665 000313 TTYTBL 
0015670 



-001 ■ 
-00V 



40 
41 
42 
43 



SPELL R11,(F,U,L,L),0P»CI 

CI R11,FXULL 

EOW K 13053 

NOTE *************** THE LAST ADDRESS OVERWRITTEN IS 000435 

********** 
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TAPE 


UTILITY MULTISCAN FUNCTION 








0:32:20 2/06/81 **** 


TAPE 


UTILITY TTY INPUT MESSAGE PROCESSING ROUTINES 




CNRUTL W77D 








01 


TAPUTL 


OW 


0(436) # 3E790151 








-001- 02 




NOTE 


************* THE FIRST ADDRESS OVERWRITTEN IS 000436 














********** 








06 


CPATCH7 


BGNP 


0(114) # 3E790151 


0015670 


-001- 07 




BL 


XXX583 








-001- 08 




NOTE 


CPATCH7 'CSECT' 








-001- 09 




NOTE 


***************** PATCH AREA BEGINS AT 000114 *************** 

* 


0121352 






-001- 13 


XXX583 


PATCHAREA 


0121352 


14 


000114 126042 


14 




SBN 


R2,2 * CONTROLS CALL TO 'SETRCBAP* SUBROUTINE 


0121353 


14 


000115 030043 


15 




ICF 


R2,3 


0121354 


14 


000116 050000 015672 0000440 


16 




BCL 


FULONLY 


0121356 


14 


000120 003000 


17 




ZR 


RO 


0121357 


14 


000121 044010 


18 




ST 


R0,N(AUX1)(RA0) 


0121360 


14 


000122 044011 


1? 
20 




ST 

SPELL 


R0,N(AUX2)(RA0) 
R11,(E,R,A,S,E),0P=CI 


0121361 


14 


000123 003665 000112 TTYTBL 


-001- 21 




CI 


R11,EXRASE 


0121363 


14 


000125 030044 


22 




ICF 


R2,4 


0121364 


14 


000126 030043 


23 




ICF 


R2,3 


0121365 






24 




ENDP 


It 3E790151 


0121365 


14 


000127 037000 015672 0000440 


-001- 25 
-001- 26 




BL ■ 
NOTE 


XXX588 

************ LAST PATCH ADDRESS USED IS 000130 ************** 

* 
***** NUMBER OF PATCH WORDS USED IS 13 (DECIMAL) ******** 








-001- 28 




NOTE 


0015672 






-001- 31 


XXX588 


OWCONTINUE 


0015672 






32 


FULONLY 






0015672 


03 


000440 144043 


33 




ST 


R2,N(LEN0)(RA0) 


0015673 






34 
-001- 35 




EOW 
NOTE 


# 3E790151 
*************** THE LAST ADDRESS OVERWRITTEN IS 000440 
********** 


0015673 


03 


000441 003033 


3? 




LN 


R1,L0MASBTFN 


0015674 


03 


000442 044020 


40 




ST 


R1,N(UTCTL)(RA0) 


0015675 






41 




RETURN 


TTY IP 


0015675 


03 


000443 056465 TTYTBL 


-001- 42 




BTSAN 


TTY IP 


0015676 






43 




RGEND 




0015676 






-001- 44 


IFS573 












45 


TAPUTL OW 


0(444) 








-001- 46 


NOTE ************* THE FIRST ADDRESS OVERWRITTEN IS 000444 ********** 


COMMON NONRESIDENT UTILITIES 








PR-1C954-50 


0:32:20 2/06/81 TRADE SECRET - SEE TRADE SECRET RESTRICTIVE 


NOTICE ON COVER SHEET CNRUTL ISSUE 05 PAGE 47 



j*2L 



TAPE UTILITY MULTISCAN FUNCTION 

TAPE UTILITY TTY INPUT MESSAGE PROCESSING ROUTINES 



0015676 03 000444 103605 000242 TTYTBL 
0015700 



01 
-001- 02 

03 
-001- 04 



0:32:20 2/06/81 **** 

CNRUTL W77D 

SPELL R8,(T,A,P,E),OP=C! 

CI R8,TZAPE 

EOW # 12447 

NOTE *************** THE LAST ADDRESS OVERWRITTEN IS 000445 ********* 



0015700 

0015700 03 000446 055033 



0015701 03 000447 014231 
0015702 



-- 0015733 -001' 
-001- 



08 

0? 

10 TAPUTL 

11 



0015702 03 000450 054553 



0015455 



15 

16 

-001- 17 



21 

22 TAPUTL 
-001- 23 



0015703 03 000451 006011 — 
0015704 



0015704 

0015704 03 000452 073030 

0015705 03 000453 144006 

0015706 03 000454 003402 177776 
0015710 03 000456 055545 0015455 



27 

28 

-001- 29 



33 

-001- 34 
35 



36 
37 

38 TAPUTL 
-001- 39 



0015711 03 000457 003665 001445 TTYTBL -001- 
0015713 

-001- 



43 

44 
45 

46 



IF CF * 1 THEN RGBEGIN 
BNC IFS601 

OW 0(447) n 12447 
NOTE ************* THE FIRST ADDRESS OVERWRITTEN IS 000447 

********** 



TZ R9 n WAS OR 1 TYPED 

EOW n 12447 

NOTE *************** THE LAST ADDRESS OVERWRITTEN IS 000447 
********** 



BC TTYOUTNG 
OW 0(451) H 12447 

NOTE ************* THE FIRST ADDRESS OVERWRITTEN IS 000451 
********** 



LR R0,R9 

EOW n 12447 

NOTE *************** THE LAST ADDRESS OVERWRITTEN IS 000451 
********** 



CALL BCDXBIN 

BSAI fXCDXBIN U SUBROUTINE BCDXBIN IS IN PROGRAM CSYSUB 

ST RO,N(TPNO)(RAO) SAVE TAPE NO. 

NI R0,-MSK(1) 

BNC TTYOUTNG # TAPE NO. TOO BIG 

OW 0(457) tf 13053 

NOTE ************* THE FIRST ADDRESS OVERWRITTEN IS 000457 
********** 

SPELL R11,(G,E,N,E,R,I,C),0P=CI 

CI . R11,GXENERIC 
EOW tf 13053 

NOTE *************** THE LAST ADDRESS OVERWRITTEN IS 000460 
********** 
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B08 




TAPE UTILITY MULTISCAN FUNCTION 








0:32:20 2/06/81 **** 


TAPE UTILITY TTY INPUT MESSAGE PROCESSING ROUTINES 




CNRUTL H77D 


0015713 03 000461 030040 


01 




icf 


R2,0 




02 


TAPUTL 


OH 


0(462) U 13053 


-001- 


03 




NOTE 


************* THE FIRST ADDRESS OVERHRITTEN IS 000462 
********** 




07 




SPELL 


R11 / (T,R,N,S / L,N),0P=CI 


001571* 03 000462 003665 000260 TTYTBL -001- 


08 




CI 


R11,TXRNSLN 


0015716 


09 




EOW 


# 13053 


-001- 


10 




NOTE 


*************** THE LAST ADDRESS OVERHRITTEN IS 000463 
********** 


0015716 03 000464 030041 


14 




ICF 


R2,1 




15 


TAPUTL 


oh 


0(465) H 13591 


-001- 


16 




NOTE 


************* THE FIRST ADDRESS OVERHRITTEN IS 000465 
********** 


• 


20 TFAPCH2 


BGNP 


0(1750) # 13591 


0015717 03 000465 037000 120744 0001750 -001- 


21 




BL 


XXX627 


-001- 


22 




NOTE 


TFAPCH2 'CSECT* 


-001- 


23 




NOTE 


***************** PATCH AREA BEGINS AT 001750 *************** 

* 


0120744 -001- 


27 


XXX627 


PATCHAREA 




28 


TFAPCH2 


OH 


0(1750) /K3E790260 


-001- 


29 




NOTE 


************* THE FIRST ADDRESS OVERHRITTEN IS 001750 
********** 




33 




SPELL 


R11,(P,A,T,C,H),0P=CI 


0120744 15 001750 103665 001215 TTYTBL -001- 


34 




CI 


R11,PXATCH 


0120746 


35 




EOH 


03E79O26O 


-001- 


36 




NOTE 


*************** THE LAST ADDRESS OVERHRITTEN IS 001751 
********** 


0120746 15 001752 030043 


40 




ICF 


R2,3 




41 


DINSERT 


NOTE 


• IF R11 ■ LN R2,11 




42 


DDELETE 


NOTE 


2 


0120747 15 001753 014273 


43 




TZ 


R11 


0120750 15 001754 050400 015722 0000470 


44 




BNCL 


IFS494 


0120752 


45 




EN DP 


* 13591 


0120752 15 001756 037000 015721 0000467 -001- 


46 




BL 


XXX636 


-001- 


47 




NOTE 


************ LAST PATCH ADDRESS USED IS 001757 ************** 


-001- 


49 




NOTE 


***** NUMBER OF PATCH HORDS USED IS 8 (DECIMAL) ******** 
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TAPE UTIUTr MULTISCAN FUNCTION 

TAPE UTILITY TTY INPUT MESSAGE PROCESSING ROUTINES 



0:32:20 2/06/81 **** 
CNRUTL H77D 



0015721 

0015721 03 000467 103053 -- 

0015722 



0015722 

0015722 03 

0015723 03 

0015724 03 
0015725 
0015725 

0015726 03 

0015727 03 
0015730 
0015730 03 
0015731 
0015732 
0015732 
0015733 
0015733 
0015733 
0015733 03 



03 



03 
03 



000470 12*041 

000471 030042 

000472 044043 

000473 014042 

000474 055002 0015730 

000475 056467 TTYTBL 

000476 103C32 

000477 044020 

000500 056465 TTYTBL 

000501 156467 TTYTBL 



-001- 



-001- 



03 XW636 

04 

05 

06 



OWCONTINUE 



DDELETE 
IFS494 



-002- 
-001- 
-002- 
-001- 



-001- 
-001- 
-001 ■ 



10 

11 

12 

13 

14 

15 

16 

17 

18 

19 IFS640 

20 

21 

22 

23 

24 

25 

26 

27 



IFS601 



LN 

EOW 

NOTE 



NOTE 

TBN 

ICF 

ST 

IF 

TZ 

BNC 

BTSAN 

LN 

ST 

RETURN 

BTSAN 

RGENO 



R2,11 

* 13591 
*************** THE LAST ADDRESS OVERWRITTEN IS 000467 
********** 



1 

R2,1 

R2,2 * CONTROLS CALL TO SETRCBAP SUBROUTINE 

R2,N(LEN0)(RA0) 

R2 = THEN RETURN TTY NG » INVALID FILE NAME TYPED 

R2 

IFS640 

TTY NG 



R1,L0MASFN 
R1,N(UTCTL)<RA0) 
TTY IP 
TTY IP 



RETURN 
BTSAN 



TTY NG 
TTY_NG 



* NEITHER 'BOOT' NOR 'TAPE' MAS TYPED 
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D08 

TAPE UTILITY MULTISCAN FUNCTION 0:32:20 2/06/81 **** 

TAPE UTILITY TTY INPUT MESSAGE PROCESSING ROUTINES CNRUTL W77D 

0015734 01 STOPTAP 

02 K STOP:TAPEUTIL! INPUT MESSAGE HANDLING ROUTINE. 

03 # STOPS THE CURRENT TAPE UTILITY ROUTINE AND TERMINATES THE MULTISCAN FUNCTION. 

0015734 05 

001573* 03 000502 130400 043177 CTSD 06 

0015736 03 000504 003405 000002 07 CI RO,TUUTIL H IS TAPE UTILITY ACTIVE 

0015740 03 000506 055515 0015455 08 

0015741 03 000507 003000 09 

0015742 03 000510 026007 BLMMA 10 

0015743 11 CALL MSFABT » ABORT TAPE UTILITY 

0015743 03 000511073050 -001-12 BSAI MXSFABT K SUBROUTINE MSFABT IS IN PROGRAM CBLM 

0015744 13 RETURN TTY PF 
0015744 03 000512 156463 TTYTBL -001- 14 BTSAN TTY~PF 



BEGIN 


() 




LL 


RO,OFLUCTL 




CI 


RO,TUUTIL 


n 


BNC 


TTYOUTNG 




ZR 


RO 




SBN 


RO,OFLUTIL 




CALL 


MSFABT 


# 


BSAI 


MXSFABT 


* 
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EOS 



TAPE UTILITY MULTISCAN FUNCTION 
TAPE UTILITY MONITOR ROUTINES 



0:32:20 2/06/81 **** 
CNRUTL W77D 



01 
02 
03 
04 

05 

06 



EACH TAPE UTILITY FUNCTION IS DRIVEN BY A MAJOR STATE TASK 
DISPENSER. THE TASK DISPENSER FOR A GIVEN FUNCTION IS HEADED BY A LABEL 
K D J!f»!! X B! ' M ° N ' (F0R M0N1T0R >- THE TASK DISPENSERS CONTAIN SUBSTATES 
T2 ?5"L THE ^ R0CESSING R0U "NES WHICH ACCOMPLISH THE PARTICULAR TASK. 
IN GENERAL, THE SUBSTATES EXECUTE SEQUENTIALLY FROM TOP TO BOTTOM WITH 
APPROPRIATE FEEDBACK LOOPS. 



0015745 



0015745 03 

0015746 03 

0015747 03 

0015750 03 

0015751 03 

0015752 03 



000*13 156001 — 

000514 153005 0015753 

000515 153013 0015762 

000516 153203 0016153 

000517 153021 0015772 

000520 153044 0016016 






10 DMPMON 

11 H MONITOR FOR CONTROLLING DUMPING OF TU BLOCKS ON TTY. 

12 It RAO POINTS TO TU CONTROL STORAGE AND R1 CONTAINS STATE FLAGS. 



H BEGIN LINKED DUMP 
K CONTINUE OUTPUT 



14 


BPAX 


R1 


15 


B 


SEZTU 


16 


B 


RD1M0N 


17 


B 


IDLSTATE 


18 


B 


STOUT 


1? 


B 


CONOUT 



0015753 



0015753 03 000521 140006 

0015754 03 000522 040021 

0015755 03 000523 037020 126205 CTAPH 
0015757 03 000525 010030 

0015760 03 000526 155175 0016155 

0015761 03 000527 053170 0016151 



23 SEZTU 

24 * SUBSTATE RESPONSIBLE FOR GAINING CONTROL OF TAPE UNIT. 

26 L RO,N(TPNO)(RA0) 

27 L R1,N(BKN0)(RA0) 

28 SEIZE TAPUCLNT 
-002- 29 BSA OPENTCB 
-001- 30 VFD 5,TAPUCLNT 1,0 1,0 2,0 3,1 1,1 

31 BNC ABORTTU „ 

32 B NEXSTAT." # 60 TO NEXT SUBSTATE 



If PREPARE FOR SEIZURE OF TAPE UNIT 
H GET CONTROL OF TAPE UNIT. 



0015762 



0015762 03 000530 173047 

0015763 03 000531 010400 015771 0015771 

0015765 03 000533 156000 

0015766 03 000534 153163 0016151 

0015767 03 000535 153166 0016155 

0115770 

Oul5770 03 000536 156462 

0015771 
0015771 
0015771 03 000537 156460 



36 RD1M0N 

37 # SUBSTATE INVOLVED WITH INITIATING READ OF CLIENT BLOCK 



39 
-002- 40 
-001- 41 

42 



-001 ■ 



-001' 



43 

44 

45 

46 

47 STALST 

48 

49 



RD1BLK 

BSAI 

ADDR 

BPAX 

B 

B 

RETURN 

BTSAN 

RETURN 
BTSAN 
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TAPUCLNT,STALST 

"*"* # SUBROUTINE REQR IS IN PROGRAM CTAPH 

STALST,TAPUCLNT*E<7HRD1BLK*E(3) 

RO 

NEXSTAT, K READ WAS ACCEPTED 

ABORTTU__ t( ABORT 

II WAIT SEIZURE NOT COMPLETED 



II SIGNAL FINAL RETURN 

■■.■' . . 
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TAPE 


UTILITY MULTISCAN FUNCTION 












0:32:20 2/06/81 **** 


TAPE 


UTILITY MONITOR ROUTINES 












CNRUTL W770 


0015772 




» 




04 


STOUT 














05 


n 


SUBSTATE FOP 


PRINTING OUT TAPE DUMP TTY HEADER. 


0015772 


03 000540 140001 




07 






L 


RO,N(BKNO)<RAO) H GET BLOCK NUMBER. 


0015773 


03 


000541 003402 003777 




08 






NI 


R0,MSK(11) U CLEAR TRACK NUMBER. 


0015775 


03 


000543 006200 




09 






LR 


R8,R0 


0015776 








10 






CALL 


BINXBCD 


0015776 


03 


000544 037020 110023 CSYSUB 


-001- 


11 






BSA 


BINXBCD 


0016000 


03 


000546 106161 




12 






LR 


R7,R1 


0016001 








13 






PRINT 


PRI0R=3,PACTI0N=M,FMT=(WRD(D,M,P),WRD(T,A,P,E),WRn(B,L,K),BCD,L X 
),LINK=YES 








-001- 


16 


# 


MESSAGE PROTOTYPE 








-001- 


17 


H 




M mm DMP TAPE BLK nnnn xxxx 


0016001 


03 


000547 073053 


-002- 


18 






BSAI 


PXMRY tf SUBROUTINE PMRY IS IN PROGRAM TTYAPP 


0016002 


03 


000550 102270 


-002- 


19 






VFD 


1,1 2,0 1,0 3,2 1,0 1,1 1,0 2,3 1,1 3,0 


0016003 


03 


000551 023200 


-002- 


20 






VKD 


4,TTY0_ 4,TTY0 L X 4,TTY0 BCD 4,TTY0 WRD 


0016004 


03 


000552 021042 


-002- 


21 






VFD 


4,TTY0 4,TTY0 ?,TTYO 4jTTY0 


0016005 


03 


000553 014016 TTYTBL 


-002- 


22 






VFD 


5,3 11,DXMP 


0016006 


03 


000554 000242 TTYTBL 


-002- 


23 






VFD 


5, 11,TXAPE 


0016007 


03 


000555 000272 TTYTBL 


-002- 
-001- 

-001- 


24 
25 

27 






VFD 
NOTE 

NOTE 


5, 11,BXLK 

THE VARIABLE PORTION OF THE OUTPUT MESSAGE TO BE PRINTED IS 

CONTAINED IN GENERAL REGISTERS R7,R8, 
THIS IS THE FIRST SEGMENT OF A LINKED MESSAGE 


0016010 


000556 144004 




28 






ST 


RO,N(LNKSKRAO) n STORE link number away. 


0016011 


03 


000557 037040 010054 0010054 




29 






A1S 


TUUTCTL+N(SUBST) « GO TO NEXT SUBSTATE '•' 


0016013 


03 


000561 003065 




30 






LN 


R3,5 


0016014 


03 


000562 044071 




31 






ST 


R3,N(AUX2)(RA0) 


0016015 








32 






RETURN 


2 


0016015 


03 


000563 056462 


-001- 


33 






BTSAN 


2 


0016016 








37 


COMOUT 














38 


n 


PRINTOUT ROUTINE FOR EODY OF TAPE BLOCK. 


0016016 


03 


000564 140004 




39 






L 


R0,N(LNKS)(RA0) (K GET LINK NUMBER. 


0016017 








40 






CALL 


LINKRDY n CHECK IF LAST SEGMENT PRINTED OUT. 


0016017 


03 


000565 037021 125021 TTYAPP 


-001- 


41 






BSA 


LINKRDY 


0016021 


03 


000567 156000 




42 






BPAX 


RO 


0016022 


03 


000570 153105 0016127 




43 






B 


TAPUTLCOM 


0016023 








44 






RETURN 


2 n WAIT 


0016023 


03 


000571 156462 


-001- 


45 






BTSAN 


2 


0016024 


03 


000572 140145 




46 






L 


R6,N(SGNO)(RA0) * GET IOBUFFER INDEX, 


0016025 


03 


000573 003561 001500 MASACS 




47 






LI 


R7,BLKSIZE 


0016027 


03 


000575 040000 




48 






L 


R0,N(UTCTLXRA0) 










49 


TAPUTL 


OW 


0(576) K 12650 
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TAPE UTILITY MULTISCAN FUNCTION 








0:32:20 2/06/81 **** 


TAPE UTILITY MONITOR ROUTINES 








CNRUTL W77D 


-001- 


01 




NOTE 


************* THE FIRST ADDRESS OVERWRITTEN IS 000576 ********** 


0016030 


04 




TAKEOUT 


9 


0016030 03 000576 006000 -001- 


05 




LR 


0,0 


0016031 03 000577 006000 -001- 


06 




LR 


0,0 


0016032 03 000600 006000 -001- 


07 




LR 


0,0 


0016033 03 000601 006000 -001- 


08 




LR 


0,0 


0016034 03 000602 006000 -001- 


09 




LR 


0,0 


0016035 03 000603 006000 -001- 


10 




LR 


0,0 


0016036 03 000604 006000 -001- 


11 




LR 


0,0 


0016037 03 000605 006000 -001- 


12 




LR 


0,0 


0016040 03 000606 006000 -001- 


13 




LR 


0,0 


0016041 


14 




EOW 


# 12650 


-00,- 


15 




NOTE 


*************** THE LAST ADDRESS OVERWRITTEN IS 000606 ********** 




18 


DDELETE NOTE 


1 


0016041 


19 




IF 


R6 >« R7 THEN B COMPO 


0016041 03 000607 106006 -003- 


20 




LR 


R0,R6 


0016042 03 000610 005007 -003- 


21 




SR 


R0,R7 


0016043 03 000611 054052 0016115 -001- 


22 




BC 


COMPO 




23 


TAPUTL 


OW 


0(612) If 12281 


-001- 


24 




NOTE 


************* THE FIRST ADDRESS OVERWRITTEN IS 000612 ********** 


0016044 03 000612 040071 


27 




L 


R3,N(AUX2)(RA0) 


0016045 


26 




EOW 


* 12281 


-001- 


29 




NOTE 


*************** THE LAST ADDRESS OVERWRITTEN IS 000612 ********* 

* 


0016045 03 000613 004077 . 


33 




SN 


R3,1 


0016046 03 000614 014063 


34 




U 


R3 


0016047 03 000615 054027 0016076 


35 




BC 


PAUSE 


0016050 03 000616 044071 


36 




ST 


R3,N(AUX2)(RA0) 


0016051 03 000617 031420 045266 LAYOUT 


37 




LAL 


R1,I 0BUF,RA1 




38 


TAPUTL 


OW 


0(62T) » 12281 


-001- 


39 




NOTE 


************* THE FIRST ADDRESS OVERWRITTEN IS 000621 ********** 


0016053 03 000621 043426 


42 




LAX 


R1,R6(RA1) 


0016054 03 000622 004550 


43 




AN 


R6,8 


0016055 03 000623 044145 


44 




ST 


R6,N(SGN0)(RA0) 


0016056 


45 




EOW 


# 12281 


-001- 


46 




NOTE 


*************** THE LAST ADDRESS OVERWRITTEN IS 000623 ********* 

* 


COMMON NONRESIDENT UTILITIES 








.'..'■'... 
PR-1C954-50 


0:32:20 2/06/81 TRADE SECRET - SEE TRADE SECRET 


RESTRICTIVE NOTICE ON COVER SHEET CNRUTL ISSUE 05 PAGE 54 










■ ■ ■■■-.' ■ ' ■ 


. ■■ ' ■ 








■ - ■ ,''■,■■ ■ , . '.■'.■■.■ 













• • 



• • 



• • 



A09 



TAPE UTILITY MULTISCAN FUNCTION 
TAPE UTILITY MONITOR ROUTINES 



00160S6 
0016057 
0016060 
0016061 
0016062 
0016063 
0016064 
0016065 
0016066 
0016067 



03 000624 040540 
03 000625 040561 
03 000626 040602 
03 000627 040623 
03 000630 040644 
03 000631 040665 
03 000632 040004 
03 000633 040706 
03 000634 040727 



0016067 03 000635 073054 

0016070 03 000636 110270 

0016071 03 000637 063146 

0016072 03 000640 0631 46 

0016073 03 000641 010000 TTYTBL 

0016074 03 000642 001402 TTYTBL 



0016075 

0016075 03 000643 156462 



0:32:20 2/06/81 **** 





01 


L 




02 


L 




03 


L 




04 


L 




05 


L 




06 


L 




07 


L 




08 


L 




09 


L 




10 


LPRINT 


001- 


13 # 


MESSAGE PR 


001- 


14 n 




002- 


15 


BSAI 


002- 


16 


VFD 


002- 


17 


VFD 


002- 


18 


VFD 


002- 


19 


VFO 


002- 


20 


VFD 


001- 


21 


NOTE 


001- 


23 


NOTE 




24 


RETURN 


001- 


25 


BTSAN 



CNRUTL 
# LOAD REGISTERS FOR OUTPUT. 



W77D 



R6,0(RA1) 
R7,1(RA1) 
R8,2(RA1) 
R9,3(RA1> 
R10,4(RA1) 
R11,5<RA1) 
R0,N(LNKSXRA0) 
R12,6(RA1) 
R13,7(RA1) 

PRI0R=3,FMT=(WRD(CR,LF),WRD(SP,SP),L_X,L_X,L_X,L X,L_X,L X,L X,L 
JO,LINK=YES,ZSPRS=NO 

TOTYPE 

CRLF SPSP xxxx xxxx xxxx xxxx xxxx xxxx xxxx xxxx 
LXPMRY ft SUBROUTINE LPMRY IS IN PROGRAM TTYAPP 

1.1 2,0 1,1 3,0 1,0 1,1 1,0 2,3 1,1 3,0 
4,TTY0_L_X 4,TTY0_L_X 4,TTY0 L X 4,TTY0 L X 
4,TTY0 L X 4,TTY0 L X 4,TTY0 L X 4,TTY0 L X 

5.2 11, qt 
5, 11, it 

THE VARIABLE PORTION OF THE OUTPUT MESSAGE TO BE PRINTED IS 

CONTAINED IN GENERAL REGISTERS R6,R7,R8,R9,R10,R11,R12,R13, 
THIS IS A SEGMENT OF A LINKED MESSAGE 
2 
2 



.0016076 



0016076 03 000644 140004 
0016077 



0016077 03 000645 073054 

0016100 03 000646 100260 

0016101 03 000647 021042 

0016102 03 000650 021042 

0016103 03 000651 010000 TTYTBL 

0016104 03 000652 OOOOOC TTYTBL 

0016105 03 000653 140000 

0016106 03 000654 003043 



29 PAUSE 

30 H THIS ROUTINE BRAKES THE TTY LINK AFTER THE PRINTING OF 

31 K 4 LINES AND PREPARE FOR THE PRINTING OF 4 MORE. 

RO,N(LNKS)(RAO) 
LPRINT PRI0R=3,FMT=(WRD(CR,LF),WRD(CR,LF)),LINK=N0 

TOTYPE 
CRLF CRLF 
LXPMRY n SUBROUTINE LPMRY IS IN PROGRAM TTYAPP 

1.1 2,0 1,0 3,0 1,0 1,1 1,0 2,3 1,0 3,0 
4,TTY0 4,TTY0_ 4,TTY0 4,TTY0 
4,TTY0 4,TTY0_ 4,TTY0~ 4,TTY0~ 

5.2 11, qt 
5, 11, qt 
THE VARIABLE PORTION OF THE OUTPUT MESSAGE TO BE PRINTED IS 

CONTAINED IN GENERAL REGISTERS 
THIS IS THE LAST SEGMENT Of A LINKED MESSAGE 
RO,N(UTCTL)(RAO) 
R2,3 
0(655),0(660) # 12650 





33 






L 




34 






LPRI 


■001- 


36 


K 


MESSAGE 


001- 


37 


If 






002- 


38 






BSAI 


002- 


39 






VFD 


002- 


40 






VFD 


002- 


41 






VFD 


002- 


42 






VFD 


002- 


43 






VFD 


001- 


44 






NOTE 


001- 


46 
47 
48 






NOTE 
L 

LN 




49 


TAPUTL 


OW 
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TAPE UTILITY MULTISCAN FUNCTION 
TAPE UTILITY MONITOR ROUTINES 



-001- 01 



B09 



NOTE 



0:32:20 2/06/81 **** 
CNRUTL W77D 
************* THE FIRST ADDRESS OVERWRITTEN IS 000655 ********** 



0016107 

0016107 03 000655 003405 000004 

0016111 03 000657 055002 0016113 

0016112 03 000660 003044 

0016113 

0016113 



04 IF 
-002- 05 
-001- 06 
-001- 07 
-001- 08 IFS718 

0? EOW 
-001- 10 NOTE 



RO = DMPSFN THEN LN R2,4 
CI RO, DMPSFN 
BNC IFS718 
LN R2,4 U 

# 12650 
*************** THE LAST ADDRESS OVERWRITTEN IS 000660 ********* 

* 



0016113 03 000661 144042 
0016114 

0016114 03 000662 056462 



14 

15 

-001- 16 



ST R2,N(SUBSTXRA0) 

RETURN 2 
BTSAN 2 



n SET UP FOR NEXT 4 LINES 






0016115 

0016115 03 000663 140010 

0016116 03 000664 014000 

0016117 03 000665 055111 
0016120 

0016120 03 000666 140004 
0016121 



0016230 



0016121 03 000667 073054 

0016122 03 000670 100260 

0016123 03 000671 021042 

0016124 03 000672 021042 

0016125 03 000673 010000 TTYTBL 

0016126 03 000674 000000 TTYTBL 



20 COMPO 

21 

22 

23 

24 C0MPO1 

25 

26 



L 
TZ 

BNC 

L 

LPRINT 



R0,N(AUX1)(RA0> 

RO 

LSGBLK 



II ZER0=8LKDMP NONZERO=SEGDM r 
It LAST BLOCK IN SEGMENT? 



RO,N(LNKS)(RAO> 
PRI0R=3,FMT=(WRD(CR,LF),WRD<CR,LF)),LINK=N0 



-001- 28 * MESSAGE PROTOTYPE 

-001- 29 » CRLF CRLF 

~9.nl" 2? BSAI LXPMRY U SUBROUTINE LPMRY IS IN PROGRAM TTYAPP 

"H2S~ IX VFD 1 ' 1 2 '° 1 '° 3 '° 1 '° 1>1 1/0 2,3 1,0 3,0 

-002- 32 VFD 4,TTY0 4,TTY0 4,TTY0 4,TTY0 

-002- 33 VFD 4,TTY0_ 4,TTY0~ 4,TTY0~ 4,TTY0~ 

-002- 34 VFD 5,2 11, qt 

-002- 35 VFD 5, 11,.qt 

-001- 36 NOTE THE VARIABLE PORTION OF THE OUTPUT MESSAGE TO BE PRINTED IS 

CONTAINED IN GENERAL REGISTERS 

-001- 38 NOTE THIS IS THE LAST SEGMENT OF A LINKED MESSAGE 



0016127 

0016127 03 000675 173047 

0016130 03 000676 011300 

0016131 03 000677 156000 

0016132 03 000700 153003 

0016133 03 000701 153022 

0016134 03 000702 153021 







42 


TAPUTLCOM 






43 


CLOS 




-002- 


44 


BSAI 




-001- 


45 


VFD 






46 


BPAX 


0016135 




47 


B 


0016155 




48 


B 


0016155 




49 


B 



TAPUCLNT 

RXEdR * SUBROUTINE RE«R IS IN PROGRAM CTAPH 

5, TAPUCLNT 4, CLOSE 1,1 1,0 5,0 

RO 

PRNTCOMP 

ABORTTU 

ABORTTU__ H SHOULD NEVER GET HERE 



COMMON NONRESIDENT UTILITIES 

0:32:20 2/06/81 TRADE SECRET - SEE TRADE SECRET RESTRICTIVE NOTICE ON COVER SHEET 



CNRUTL 



PR-1C954-50 
ISSUE 05 PAGE 



56 



• • 



• • 



C09 



TAPE UTILITY MULTISCAN FUNCTION 
TAPE UTILITY MONITOR ROUTINES 



0:32:20 2/06/81 ***a 
CNRUTL W77D 



0016135 
0016135 



0016135 03 000703 173053 

0016136 03 000704 101200 

0016137 03 000705 021042 

0016140 03 000706 021042 

0016141 03 000707 010246 TTYTBL 

0016142 03 000710 000302 TTYTBL 

0016143 03 000711 103000 

0016144 03 000712 003026 

0016145 

0016145 03 000713 146001 

0016146 03 000714 036020 016145 0016145 
0016150 

0016150 03 000716 056462 



01 PRNTCOMP 

02 PRINT 



PACTION=A,FMT(WRD(T,A,P,E,U,T,I,L),WRD(C,0,M,P,L)> 



-001- 04 If MESSAGE PROTOTYPE 

-001- 05 # A dim TAPEUTIL COMPL 

-002- 06 BSAI PXMRY H SUBROUTINE PMRY IS IN PROGRAM TTYAPP 

-002- 07 VFD 1,1 2,0 1,0 3,1 1,0 1,1 1,0 2,0 1,0 3,0 
-002- 08 VFO 4,TTY0 4,TTY0 4,TTY0 4,TTY0 
-002- 09 VFD 4,TTY0 4,TTY0~ 4,TTY0~ 4,TTY0 - 
-002- 10 VFD 5,2 11,tapeuTir 
-002- 11 VFD 5, 11,CX0MPL 

-001- 12 NOTE THE VARIABLE PORTION OF THE OUTPUT MESSAGE TO BE PRINTED IS 

CONTAINED IN GENERAL REGISTERS 

15 ZR RO 

16 LN R1,6 

17 CLEAR 

18 # CLEAR CONTROL BUFFER 

19 STX R0,R1(RA0) 

20 BX R1, CLEAR 

21 RETURN 2 
-001- 22 BTSAN 2 



0016151 

0016151 03 000717 137000 017523 0017523. 

0016153 

0016153 03 000721 137000 016703 0016703 

0016155 

0016155 03 000723 137000 020215 0020215 



28 H TRANSFER VECTORS 

29 NEXSTAT 

30 BL NEXSTAT 

31 IDLSTATE 

32 BL IDLSTATE 

33 ABORTTU 

34 BL ABORTTU 
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TAPE UTILITr MULTISCAN FUNCTION 
TAPE UTILITY MONITOR ROUTINES 
0016157 



D09 

0:32:20 2/06/81 **** 
CNRUTL W770 

01 DMPSMON 

02 * TASK DISPENSER INVOLVED WITH THE DUMPING OF A SEGMENT OF DATA FROM TAPE 

03 * OUT TO TTT. RAO POINTS TO TU CONTROL BLOCK RO HOLDS THE SUBSTATE NO. 

05 TAPUTL OW 0(725) * 12650 

-001- 06 NOTE ************* THE FIRST ADDRESS OVERWRITTEN IS 000725 ********** 



0016157 03 000725 156001 
0016160 



-001- 



09 
10 
11 



BPAX R1 

EOW H 12650 

NOTE *************** THE LAST ADDRESS OVERWRITTEN IS 000725 ********* 

* 



0016160 03 000726 153006 0016166 15 

0016161 03 000727 153772 0016153 16 

0016162 03 000730 153600 0015762 17 

0016163 03 000731 153770 0016153 18 

0016164 03 000732 153015 0016201 19 

0016165 03 000733 153631 0016016 20 



B 


OPENPM 


It OPEN PAGMON 


B 


IDLSTATE 




B 


RD1M0N 




B 


IDLSTATE 




B 


SEGHDR 


* SEGMENT HEA 


B 


CONOUT 





0016166 



0016166 03 000734 140021 

0016167 03 000735 040006 



-001- 



23 OPENPM 

24 n THIS SUBSTATE OPENS THE PAGE MONITOR 

26 L R1,N(BKN0)(RA0) 

27 L RO,N(TPNO)(RAO) 

28 TAPUTL OW 0(736), 0(740) * 12650 

29 NOTE ************* THE FIRST ADDRESS OVERWRITTEN IS 000736 ********** 



0016170 03 000736 037020 126205 CTAPH 

0016172 03 000740 011123 

0016173 03 000741 050101 

0016174 03 000742 043705 

0016175 03 000743 046717 

0016176 03 000744 047000 

0016177 



32 OPENE TAPUCLNT,(P,A,G,E,M,0,N) 

-002- 33 BSA OPENTCB 

■*°,°J" It VFD 5,TAPUCLNT 1,0 1,1 2,0 3,((7+1)/2)+1 1,0 3,((7+1)/2)-1 

-001- 35 VFD 8,ASC P 8,ASC A 

-001- 36 VFD 8,ASC~G 8,ASC~E 

-001- 37 VFD 8,ASC M 8,ASC~0 

-001- 38 VFD 8,ASC~N 8,ASC~ 

39 EOW n 12650 

-001- 40 NOTE *************** THE LAST ADDRESS OVERWRITTEN IS 000744 ********* 

* 



0016177 03 000745 155756 
0016200 03 000746 053751 



0016155 
0016151 



44 
45 



BNC 
B 



ABORTTU 
NEXSTAT 



COMMON NONRESIDENT UTILITIES 

0:32:20 2/06/81 TRADE SECRET - SEE TRADE SECRET RESTRICTIVE NOTICE ON COVER SHEET CNRUTL 



PR-1C954-50 
ISSUE 05 PAGE 



58 



• • 



• • 



E09 



TAPE UTILITr MULTISCAN FUNCTION 
TAPE UTILITT MONITOR ROUTINES 
0016201 

0016201 03 000747 140170 

0016202 03 000750 003601 001402 TTYTBL 



0:32:20 2/06/81 **** 
CNRUTL W77D 

01 SEGHOR 

02 # THIS SUBSTATE DUMPS THE SEGMENT HEADER OUT TO TTY 

04 L R7,N(AUX1)(RA0) n SEGMENT NUMBER 

05 SPEU R8,(SP / SP) 
-001- 06 LI R8,zz 

07 TAPUTL OW 0(752) K 12650 

-001- 08 NOTE ************* THE FIRST ADDRESS OVERWRITTEN IS 000752 ********** 



0016204 

0016204 03 000752 006000 



0016205 03 000753 037000 112010 0000356 



-001- 

-001- 
-001- 
-001- 



11 
12 
13 

14 
15 
16 



TAKEOUT 1 
LR 0,0 
CPATCH BGNP 0(356) It 12650 

BL XXX762 
NOTE CPATCH 'CSECT' 
NOTE ***************** PATCH AREA BEGINS AT 000356 **************** 



0112010 

0112010 10 000356 130400 045266 LAYOUT 

0112012 10 000360 003402 003777 

0112014 

0112014 10 000362 037000 016207 0000755 



-001- 19 XU762 PATCHAREA 



-001- 
-001- 
-001- 



20 
21 
22 
23 
24 
25 



LI RO,I OBUF U GET BLK ADR 

NI R0,M(BLKADR) H KEEP BLK ADR ONLY 

ENDP H 12650 

BL UX764 

NOTE ************ LAST PATCH ADDRESS USED IS 000363 *************** 

NOTE ***** NUMBER OF PATCH WORDS USED IS 6 (DECIMAL) ******** 



0016207 

0016207 03 000755 106240 

0016210 



-001- 28 m764 OWCONTINUE 

29 LR R10 / R0 

30 EOW 
-001- 31 NOTE 



» BLK NUMBER IN OCTAL 
it 12650 
*************** THE LAST ADDRESS OVERWRITTEN IS 000755 ********* 
* 



0016210 35 CALL 

0016210 03 000756 037020 110023 CSYSUB -001- 36 BSA 

0016212 03 000760 106221 37 LR 

0016213 38 PRINT 



BINXBCD 
BINXBCD 
R9,R1 n BLOCK NUMBER IN BCD 

PRI0R=3,PACTI0N=M,FMT(WRD(D,M,P),WRD(T,A,P,E),WRD(S,E,G),BCD,WRD 
,BCD,L_X),LINK=YES 



-001- 41 U MESSAGE PROTOTYPE 



-001- 42 * 

0016213 03 000761 073053 -002- 43 BSAI 

0016214 03 000762 102270 -002- 44 VFD 

0016215 03 000763 100200 -002- 45 VFD 

0016216 03 000764 021046 -002- 46 VFD 

0016217 03 000765 014016 TTYTBL -002- 47 VFD 

0016220 03 000766 000242 TTYTBL -002- 48 VFD 

0016221 03 000767 001246 TTYTBL -002- 49 VFD 



M mm DMP TAPE SEG nnnn WRD nnnn xxxx 

PXMRY * SUBROUTINE PMRY IS IN PROGRAM TTYAPP 

1,1 2,0 1,0 3,2 1,0 1,1 1,0 2,3 1,1 3,0 

4,TTY0_BCD 4,TTY0 WRD 4,TTY0 BCD 4,TTY0 WRD 

4,TTY0_ 4,TTY0_ 4,TTY0 4,TTY0 L X 

5,3 11,DXMP 

5, 11,TXAPE 

5, 11,SXEG 
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F09 



TAPE UTILITY MULTISCAN FUNCTION 
TAPE UTILITY MONITOR ROUTINES 



0016222 03 000770 144004 

0016223 03 000771 037040 010054 0010054 

0016225 03 000773 003065 

0016226 03 000774 044071 

0016227 

0016227 03 000775 056462 



001- 


01 


001- 


03 




04 




05 




06 




07 



-001- 09 



NOTE 

NOTE 

ST 

A1S 

LN 

ST 

RETURN 

BTSAN 



0:32:20 



2/06/81 **** 



CNRUTL 



W77D 



THE VARIABLE, PORTION OF THE OUTPUT MESSAGE TO BE PRINTED IS 

CONTAINED IN GENERAL REGISTERS R7,R8,R9,R10, 
THIS IS THE FIRST SEGMENT OF A LINKED MESSAGE 



RO,N(LNKS)(RAO) 

TUUTCTL+N(SUBST) 

R3,5 

R3,N(AUX2)(RA0> 

2 

2 



# STORE TTY LINK NUMBER AWAY 

# GO TO NEXT SUBSTATE 
It LINE COUNT 



0016230 

0016230 03 000776 131400 045266 LAYOUT 

0016232 03 001000 024015 

0016233 03 001001 054665 0016120 

0016234 03 001002 003000 

0016235 03 001003 044005 



-001- 20 



13 LSGBLK 

14 

15 

16 

17 

18 

19 TAPUTL 



LAL 

TBN 
BC 
ZR 
ST 

ow 

NOTE 



RO/I 0BUF,RA1 

RO,S?EOF) 

C0MP01 

RO 

RO,N(SGNO)(RAO) 

0(1004) 



* WAS LAST BLOCK READ? 



# START AT FIRST WORD 
H 12650 



************* THE FIRST ADDRESS OVERWRITTEN IS 001004 ********** 



0016236 

0016236 03 001004 006000 



0016237 03 001005 037000 111741 0000307 



0111741 

0111741 10 000307 103002 

0111742 10 000310 044002 — 

0111743 10 000311 037040 010053 0000026 
0111745 

0111745 10 000313 056462 

0111746 



23 

-001- 24 



TAKEOUT 1 



0016241 



•001- 


26 


•001- 


27 


•001- 


28 


•001- 


31 




32 




33 




34 




35 


001- 


36 




37 


001- 


38 


001- 


39 




42 


001- 


43 



LR 



25 CPATCH BGNP 
BL 

NOTE 
NOTE 



0,0 

0(307) # 12650 

XXX786 

CPATCH 'CSECT' 

***************** PATCH AREA BEGINS AT 000307 **************** 



31 XXX786 PATCHAREA 



LN 

ST 

A1S 

RETURN 

BTSAN 

ENDP 

NOTE 

NOTE 



EOW 
NOTE 



R0,2 

R0,N(SUBST)(RA0) 

TUUTCTL+N(BKNO) 

2 

2 

NR # 12650 

************ LAST PATCH ADDRESS USED IS 000313 *************** 

***** NUMBER OF PATCH WORDS USED IS 5 (DECIMAL) ******** 

* 12650 
*************** THE LAST ADDRESS OVERWRITTEN IS 001006 ********* 
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A01 



TAPE 


UTILITY MULTISCAN 


FUNCTION 












0:32:20 2/06/81 **** 


TAPE 


UTILITY MONITOR ROUTINES 












CNRUTL W77D 


0016241 


1 










01 


DMPDMON 
















02 


n 


THIS 


IS THE 


TASK DISPENSER FOR THE DUMP TAPE DIRECTRY TO TTY. 














03 


tt 


RAO 


POINTS 


TO TU CONTROL BLOCK AND R1 CONTAINS SUBSTATE NUMBER 


0016241 


03 


001007 156001 








04 






BPAX 


R1 


0016242 


03 


001010 153511 




0015753 




05 






B 


SEZTU 


0016243 


03 


001011 153517 




0015762 




06 






D 


RD1M0N 


0016244 


03 


001012 153707 




0016153 




07 






B 


IDLSTATE 


0016245 


03 


001013 153003 




0016250 




08 






B 


WRTDH tt WRITE DIRECTRY HEADER 


0016246 


03 


001014 153025 




0016273 




09 






B 


WRTDCON tt CONTINUE WRITE 


0016247 


03 


001015 153063 




0016332 




10 









WRTDCONL # CONTINUE WRITE LINKED 


0016250 












14 


WRTDH 


















15 


tt 


THIS 


SUBSTATE PUTS THE OIRECTRY FILE HEADER OUT TO TTY 


0016250 


03 


001016 140166 








17 






L 


R7,N(TPNO)<RA0) tt GET TAPE NUMBER 


0016251 












18 






PRINT 


PRI0R=3,PACTI0N=M,FMT=(WRD(D,M,P),WRD(T,A,P,E),WRD(D,I,R,E>C,T,R 
,Y),DEC),LINK=YES 












-001- 


21 


tt 


MESSAGE PROTOTYPE 












-301- 


22 


tt 




M 


mm DMP TAPE DIRECTRY ddddd 


0016251 


03 


001017 073053 






-002- 


23 






BSAI 


PXMRY It SUBROUTINE PMRY IS IN PROGRAM TTYAPP 


0016252 


03 


001020 102270 






-002- 


24 






VFD 


1,1 2,0 1,0 3,2 1,0 1,1 1,0 2,3 1,1 3,0 


0016253 


03 


001021 021100 






-002- 


25 






VFD 


4,TTY0 4,TTY0 4,TTY0 DEC 4,TTY0 WRD 


0016254 


03 


001022 021042 






-002- 


26 






VFD 


4,TTY0 4,TTY0~ 4,TTY0~ 4,TTY0 


0016255 


03 


001023 014016 




TTYTBL 


-002- 


27 






VFD 


5,3 11,DKMP ~ 


0016256 


03 


001024 000242 




TTYTBL 


-002- 


28 






VFD 


5, 11,TXAPE 


0016257 


03 


001025 001054 




TTYTBL 


-002- 
-001- 

-001- 


29 

30 

32 






VFD 
NOTE 

NOTE 


5, 11,direeTry 

THE VARIABLE PORTION OF THE OUTPUT MESSAGE TO BE PRINTED IS 

CONTAINED IN GENERAL REGISTERS R7, 
THIS IS THE FIRST SEGMENT OF A LINKED MESSAGE 


0016260 


03 


001026 103022 








33 






LN 


R1,2 


0016261 


03 


001027 044025 








34 






ST 


R1,N(SGN0)(RA0) tt TO START WRITE WITH 3RD WORD OF I OBUF 


0016262 


03 


001030 031420 


045267 


LAYOUT 




35 






LAL 


R1,I 0BUF+1,RA1 tt GET ENTRY COUNT 


0016264 


03 


001032 003422 


000377 






36 






NI 


R1,MSK(8) tt KEEP ENTRY COUNT ONLY 


0016266 


03 


001034 044030 








37 






ST 


R1,N(AUX1)(RA0) tt STORE ENTRY COUNT 


0016267 


03 


001035 037040 


010054 


0010054 




38 






A1S 


TUUTCTL+N(SUBST) tt GO TO NEXT STATE 


0016271 


03 


001037 044004 








39 






ST 


R0,N(LNKS)(RA0) tt STORE TTY LINK NUMBER 


0016272 












40 






RETURN 


2 


0016272 


03 


001040 056462 






-001- 


41 






BTSAN 


2 


P016273 












45 


WRTDCON 
















46 


tt 


THIS 


SUBSTATE PUTS THE FILE NAMES IN ASCI OUT TO TTY 


COMMON NONRESIDENT UTILITIES 
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E01 




TAPE UTILITY MULTISCAN FUNCTION 










0:32:20 2/06/81 **** 


TAPE UTILITY MONITOR ROUTINES 










CNRUTL W77D 


0016273 03 001041 


140004 




01 


L 


R0,N(LNKS)(RA0) 


It GET TYY LINK NUMBER 


0016274 






02 


CALL 


LINKRDY 


It CHECK IF LAST SEGMENT PRINTED 


0016274 03 001042 


037021 125021 TTYAPP 


-001- 


03 


BSA 


LINKRDY 




0016276 03 001044 


156000 




04 


BPAX 


RO 


It RO WILL = 0, 1, OR 2 


0016277 03 001045 


153630 0016127 




05 


B 


TAPUTLCOM 




0016300 






06 


RETURI\ 


2 




0016300 03 001046 


156462 


-001- 


07 


BTSAN 


2 




0C16301 03 001047 


140030 




08 


L 


R1,N(AUX1)(RA0) 


H GET WORD COUNT 


0016302 03 001050 


014021 




0? 


TZ 


R1 




0016303 03 001051 


054615 0016120 




10 


BC 


C0MP01 




0016304 03 001052 


004037 




11 


SN 


11,1 




0016305 03 001053 


044030 




12 


ST 


R1,N(AUX1)(RA0) 


* STORE NEW WORD COUNT 


0016306 03 001054 


040005 




13 


L 


R0,N(SGN0)(RA0) 


U GET I OBUF INDEX 


0016307 03 001055 


031420 045266 LAYOUT 




14 


LAL 


R1,I 0BUF,RA1 
R1,R0"(RA1) 


K SET RA1 TO START I OBUF LOCATION 


0016311 03 001057 


043420 




15 


LAX 


# SET UP ADDREST REG FOR 1ST WORD TO PRINT 


0016312 03 001060 


004404 




16 


AN 


R0,4 


It UPDATE INDEX COUNTER 


0016313 03 001061 


044005 




17 


ST 


RO,N(SGNO)(RAO) 


It STORE NEW COUNT 


0016314 03 001062 


040540 




:? 


L 


R6,0(RA1) 




0016315 03 001063 


040561 




L 


R7,1(RA1) 


■ ' ' ■ . ' ■ 


0016316 03 001064 


040602 




20 


L 


R8,2(RA1) 




0016317 03 001065 


040623 




21 


L 


R9,3(RA1) 




■ -, 






22 TAPUTL 


OW 


0(1066) 


It 12281 






-001- 


23 


NOTE 


************* the 


FIRST ADDRESS OVERWRITTEN IS 001066 ********** 








26 It ***************** STUFF BLANKS 


***************** 


0016320 






27 


ASCII 


R2,(SP,SP) 


It BLANK 


0016320 03 001066 


003441 120240 


-001- 


28 


LI 


R2,PACK(8,X(A0) 8,X(A0)) 


0016322 03 001070 


016471 000377 




29 


LRM 


R3,R9,MSK(8) 




0016324 03 001072 


014063 




30 


TZ 


R3 


. ■ ' ■ ■ ■ . ■ 








31 CPATCH 


BGNP 


0(425) 


It 12281 


0016325 03 001073 


037000 112057 0000425 


-001- 


32 


BL 


XXX812 








-001- 


33 


NOTE 


CPATCH 'CSECT' 








-001- 


34 


NOTE 


***************** 


PATCH AREA BEGINS AT 000425 **************** 


0112057 


. 


-001- 


37 XXX812 


PATCHAREA 


■ 


0112057 10 000425 


155025 0112104 




38 


BNC 


BAKGO 




0112060 10 000426 


016222 000377 




39 


IRM 


R9,R2,MSK(8) 




0112062 10 000430 


016471 177400 




40 


LRM 


R3,R9,MSK(8,8) 




0112064 10 000432 


014063 




41 


TZ 


R3 




0112065 10 000433 


055017 0112104 




42 


BNC 


BAKGO 


. 


0112066 10 000434 


016222 177400 




43 


IRM 


R9,R2,MSK(8,8) 




0112070 10 000436 


016470 000377 




44 


LRM 


R3,R8,MSK(8> 




0112072 10 000440 


014063 




45 


TZ 


R3 




0112073 10 000441 


055011 0112104 




46 


BNC 


BAKGO 




0112074 10 000442 


016202 000377 




47 


IRM 


R8,R2,MSK(8) 




0112076 10 000444 


016470 177400 




8. 


LRM 


R3,R8,MSK(8,8) 




0112100 10 000446 


014063 




TZ 


R3 
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C01 


TAPE 


UTILITY MULTISCAN FUNCTION 












0:32:20 2/06/81 **** 


TAPE 


UTILITY MONITOR ROUTINES 












CNRUTL W77D 


0112101 


10 


000447 


055003 


0112104 




01 






BNC 


BAKGO 


0112102 


10 


000450 


016202 


177400 




02 






IRM 


R8,R2,MSK(8,8) 


0112104 












03 


BAKC 


















04 






SPELL 


R10,(SP,SP) 


0112104 


10 


000452 


103641 


001402 TTYTBL 


-001- 


05 
16 






LI 
SPELL 


R10,zz 
R11,(S,T,A,R,T) 


0112106 


10 


000454 


003661 


000344 TTYTBL 


-001- 


07 






LI 


R11,S*TART 


0112110 


10 


000456 


040004 






08 






L 


R0,N(LNKS)(RA0) l» GET LINK 


0112111 












09 






LPRINT 


PRI0R=3,FMT=(WRD(CR,LF),WRD(SP,SP>,ASC,ASC,ASC,ASC,WRD,WRD),LINK 
=YES 












-001- 


12 


tf 


MESSAGE PROTOTYPE 












-001- 


13 


H 






CRLF SPSP aaaaaaaaWRD WRD 


0112111 


10 


000457 




-002- 


14 






BSAI 


LXPMRY # SUBROUTINE LPMRY IS IN PROGRAM TTYAPP 


0112112 


10 


000460 


100270 




-002- 


15 






VFD 


1,1 2,0 1,0 3,0 1,0 1,1 1,0 2,3 1,1 3,0 


0112113 


10 


000461 


031463 




-002- 


16 






VFD 


4,TTY0 ASC 4,TTY0 ASC 4,TTY0 ASC 4,TTY0 ASC 


0112114 


10 


000462 


021000 




-002- 


17 






VFD 


4,TTY0 4,TTY0 4,TTY0 WRD 47TTY0 WRD 


0112115 


10 


000463 


010000 


TTYTBL 


-002- 


18 






VFD 


5,2 1l7qt 


0112116 


10 


000464 


001402 


137000 TTYTBL 


-002- 
-001- 

-001- 


19 
20 

22 






VFD 
NOTE 

NOTE 


5, 11, ri 

THE VARIABLE PORTION OF THE OUTPUT MESSAGE TO BE PRINTED IS 

CONTAINED IN GENERAL REGISTERS R6,R7,R8,R9,R10,R11 , 
THIS IS A SEGMENT OF A LINKED MESSAGE 


0112117 












23 






ENDP 


# 12281 


0112117 


10 


000465 


137000 


-001- 


24 






BL 


XXX830 












-001- 


25 






NOTE 


************ LAST PATCH ADDRESS USED IS 000466 *************** 












-001- 


26 






NOTE 


***** NUMBER OF PATCH WORDS USED IS 34 (DECIMAL) ******** 


0016327 










-001- 


29 


XXX83C 


OWCONTINUE 


0016327 










-001- 


30 

31 






EOW 
NOTE 


12281 
*************** THE LAST ADDRESS OVERWRITTEN IS 001074 ********* 
* 


0016327 


03 


001075 


137040 


010054 0010054 




35 






A1S 


TUUTCTL+N(SUBST) 


0016331 












36 






RETURN 


2 


0016331 


03 


001077 


056462 




-001- 


37 






BTSAN 


2 


0016332 












41 


WRTDCONL 
















42 


§ 


THIS 


St'BSTATE PUTS THE TRACKS, BLOCK ADDRESSES, LENGTH 














43 


tt 


OF FILES, AND MISC. OUT TO TTY 


0016332 


03 


001100 


140004 






45 






L 


R0,N(LNKS)(RAO) K GET TTY LINK NUMBER 


0016333 












46 






CALL 


LINKRDY U CECK IF LAST SEGMENT PRINTED 


0016333 


03 


001101 


037021 


125021 TTYAPP 


-001- 


47 






BSA 


LINKRDY 


0016335 


03 


001103 


156000 






48 






BPAX 


RO t( RO WILL* 0,1 OR 2 


0016336 


03 


001104 


153571 


0016127 




49 






B 


TAPUTLCOM 
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P01 



TAPE UTILITY MULTISCAN FUNCTION 

TAPE UTILITY MONITOR ROUTINES 

0016337 ' 

0016337 03 001105 156462 

0016340 03 001106 140005 

0016341 03 001107 031420 045266 LAYOUT 

0016343 03 001111 043420 

0016344 03 001112 004402 

0016345 03 001113 044005 

0016346 03 001114 040541 

0016347 03 001115 006166 

0016350 03 001116 003542 014000 

0016352 03 001120 010553 

0016353 03 001121 004541 

0016354 03 001122 003562 003777 



0016356 03 001124 003601 001054 

0016360 03 001126 040620 

0016361 03 001127 006251 

0016362 03 001130 003622 014000 

0016364 03 001132 010633 

0016365 03 001133 004621 

0016366 03 001134 003642 003777 

0016370 03 001136 006272 

0016371 03 001137 017151 000003 

0016373 03 001141 054003 0016376 

0016374 03 001142 003660 000526 MASACS 
0016376 

0016376 03 001144 105267 

0016377 03 001145 004661 

0016400 03 001146 003100 

0016401 03 001147 003120 — 

0016402 03 001150 040004 

0016403 



0016403 03 001151 073054 

0016404 03 001152 000270 

0016405 03 001153 110231 

0016406 03 001154 021231 



0016407 

0016407 03 001155 106000 

0016410 03 001156 006000 



0:32:20 2/06/81 **** 



CNRUTL 



W77D 



01 
-001- 02 
03 
04 
05 
06 
07 
08 
09 
10 
11 
12 
13 



KETURN 2 



BTSAN 

L 

LAL 

LAX 

AN 

ST 

L 

LR 

NI 

RRN 

AN 

NI 



-001- 15 



14 TAPUTL OW 



23 
24 
25 
26 

27 
28 
29 
30 

31 
32 
33 
34 
35 
36 



NOTE 



LI 

L 

LR 

NI 

RRN 

AN 

NI 

LR 



RO,N<SGNO)(RAO) 

R1,I 0BUF,RA1 

R1,R0"(RA1) 

R0,2 

RO,N(SGNO)(RAO) 

R6,1(RA1) 

R7,R6 

R6,M(TRCK) 

R6,S(TRCK) 

R6,1 

R7,M(BLKADR) 

0(1124) 

************* THE FIRST ADDRESS OVERWRITTEN IS 001124 ********** 



U GET I OBUF INDEX 

It SET RA1 TO I OBUF 

It SET UP FOR MORE WORDS TO PRINT 

If NEW COUNT 

H BEGINNING TRACK AND BLOCK NUMBER 

It SAVE R7 

H KEEP TRACK ONLY 

H FOR CORRECT PRINTOUT OF TRACK 
* KEEP BLOCK ADDRESS ONLY 
ft 12281 



R8,EXND 
R9,0(RA1) 
R10,R9 
R9,M(TRACK) 
R9,S (TRACK) 
R9 1 

R10,M(BLKADR) 
R11,R10 



H END ADR 

U SAVE R10 

K KEEP TRK NO. 

ft TRK CORRECTED 
ft KEEP BLK ADR 
It KEEP R11 



ft ********** fix UP LENGTH ON WRAP-AROUND ********** 



CONHERE 



CRM 
BC 
AI 
E 
SR 
AN 
ZR 
ZR 
L 
LPRINT 



R6,R9,MSK(W(TRACK)) 

CONHERE 

R11,BLKMAX-1 

R11,R7 

R11,1 

R4 

R5 

R0,N(LNKS)(RA0) 



R11=LENGTH 
CORRECT LENGTH 



* GET LINK 



PRIOR=3,FMT=(WRD,WRD,DEC5,DEC5,WRD,DEC5,DEC5,DEC5),LINK«=YES 



-001- 
-001- 
-002- 
-002- 
-002- 
-002- 
-001- 

-001- 

-001- 
-001- 



38 If MESSAGE PROTOTYPE 

39 It WRD WRD nnnnn nnnnn WRD nnnnn nnnnn nnnnn 

*9 BSAI LXPMRY H SUBROUTINE LPMRY IS IN PROGRAM TTYAPP 

♦1 VFD 1,0 2,0 1,0 3,0 1,0 1,1 1,0 2,3 1,1 3,0 

42 VFD 4,TTY0_DEC5 4,TTY0_WRD 4,TTY0 DEC5 4,TTY0 DEC5 

43 VFD 4,TTY0_ 4,TTY0_ 4,TTY0 DEC5 4,TTY0 DEC5 

44 NOTE THE VARIABLE PORTION OF THE OUTPUT~MESSAGE TO BE PRINTED IS 

CONTAINED IN GENERAL REGISTERS R4,R5,R6,R7,R8,R9,R10,R11, 

46 NOTE THIS IS A SEGMENT OF A LINKED MESSAGE 

47 TAKEOUT 2 

48 LR 0,0 

49 LR 0,0 
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TAPE UTILITY MULTISCAN FUNCTION 
TAPE UTILITY MONITOR ROUTINES 



0016411 



E01 



1 



0:32:20 2/06/81 **** 
CNRUTL W77D 



01 DOELETE NOTE 

02 EOW U 12281 

-001- 03 NOTE *************** THE LAST ADDRESS OVERWRITTEN IS 001156 ********* 

* 



0016411 03 001157 103004 

0016412 03 001160 044002 
0016413 

0016413 03 001161 056462 



07 LN R0,4 

08 ST R0,N(SUBST)(RA0) 

09 RETURN 2 
-001- 10 BTSAN 2 
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JSL 



TAPE UTILITY MULTISCAN FUNCTION 
TAPE UTILITY MONITOR ROUTINES 
0016414 



0016414 03 

0016415 03 

0016416 03 

0016417 03 

0016420 03 

0016421 03 

0016422 03 



001162 156001 

001163 153011 

001164 153265 

001165 153005 

001166 153263 

001167 153021 
001170 153035 



0016423 03 001171 153155 — 
0016424 



— 0016426 

— 0016703 

— 0016424 

— 0016703 

— 0016442 

— 0016457 



0016600 



0:32:20 



2/06/81 **** 



CNRUTL 



W77D 



01 DMPLMON 

02 K TASK DISPENSER FOR THE DUMPING OF THE LABEL FILE OUT TO TTY 

03 * RAO POINTS TO THE TU CONTROL BLOCK AND R1 CONTAINS SUBSTATE NUMBER 



0016424 

0016424 03 001172 137000 015762 0015762 





05 BPAX 




06 B 




07 B 




08 B 




09 B 




10 B 




11 B 




12 TAPUTL OW 


001- 


13 NOTE 




16 DPATCH NOTE 




17 B 




18 EOW 


001- 


19 NOTE 




23 RD1M0N 




24 ~BL 






R1 

OPENLF 

IDLSTATE 

RD1M0N 

IDLSTATE 

WRTLH 

HRTLCON 

0(1171) # 12436 

************* THE FIRST ADDRESS OVERWRITTEN IS 001171 ********** 

! REMOVE ' ' FROM NXTIM 
NXTIM 

U 12436 
*************** THE LAST ADDRESS OVERWRITTEN IS 001171 ********* 

* 



RD1M0N 



0016426 



0016426 03 001174 140006 

0016427 03 001175 003020 

0016430 03 001176 037020 126205 CTAPH 

0016432 03 001200 011102 

0016433 03 001201 146101 

0016434 03 001202 041305 

0016435 03 001203 146000 ■ -- 

0016436 03 001204 155517 0016155 

0016437 03 001205 037040 010054 0010054 
0016441 

0016441 03 001207 056462 



28 OPENLF 

29 » THIS SUBSTATE DOES AN OPEN OF THE LABEL FILE 

31 L R0,N(TPN0)(RA0) 

32 ZR R1 

„„, I 3 0PENE TAPUCLNT,<L,A,B,E,L) » POSITIONS TAPE AT LABEL FILE 

-002- 34 BSA OPENTCB 

-001- 35 VFD 5,TAPUCLNT 1,0 1,1 2,0 3,((5+1)/2)+1 1,0 3,«5+1>/2)-1 

-001- 36 VFD 8,ASC L 8,ASC A 

-001- 37 VFD 8,ASC~B 8,ASC~E 

-001- 38 VFD 8,ASCJ. 8,ASCl 

39 BNC ABORTTU 

40 A1S TUUTCTL+NCSUBST) H 60 TO NEXT STATE 

41 RETURN 2 
-001- 42 BTSAN 2 
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G01 


TAPE UTILITY MULTISCAN FUNCTION 








0:32:20 2/06/81 **** 


TAPE UTILITY MONITOR ROUTINES 








CNRUTL W77D 


0016442 


} 




01 


WRTLH 










02 


H THIS SUBSTATE PUTS THE LABEL FILE HEADER OUT TO TTY 


0016442 03 


001210 140206 




04 


L 


R8,N(TPNO)(RA0) U GET TAPE NUMBER 


0016443 






05 


PRINT 


PRI0R=3,PACTI0N=M,FMT=(WRD(D,M,P),WRD(T,A,P,£),WRD(L,A / B,E,L),WR 
D(F,I,L,E),DEC),LINK=YES 






-001- 


08 


* MESSAGE PROTOTYPE 






-001- 


09 


tt M 


mm DMP TAPE LABEL FILE ddddd 


0016443 03 


001211 073053 


-002- 


10 


BSAI 


PXMRY tf SUBROUTINE PMRY IS IN PROGRAM TTYAPP 


0016444 03 


001212 102270 


-002- 


11 


VFD 


1,1 2,0 1,0 3,2 1,0 1,1 1,0 2,3 1,1 3,0 


0016445 03 


001213 022000 


-002- 


12 


VFD 


4,TTY0_ 4,TTY0 DEC 4,TTY0 HRD 4,TTY0 WRD 


0016446 03 


001214 021042 


-002- 


13 


VFD 


4,TTY0 4,TTY0 4,TTY0 4,TTY0 


0016447 03 


001215 020016 TTYTBL 


-002- 


14 


VFD 


5,4 11,DXMP ~ 


0016450 03 


001216 000242 TTYTBL 


-002- 


15 


VFD 


5, 11,UAPE 


0016451 03 


001217 001467 TTYTBL 


-002- 


16 


VFD 


5, 11,LXABEL 


0016452 03 


001220 000122 TTYTBL 


-002- 


17 


VFD 


5, 11,FXILE 






-001- 


18 


NOTE 


THE VARIABLE PORTION OF THE OUTPUT MESSAGE TO BE PRINTED IS - 
CONTAINED IN GENERAL REGISTERS R8, " " ' 






-001- 


20 


NOTE 


THIS IS THE FIRST SEGMENT OF A LINKED MESSAGE 


0016453 03 


001221 144004 




21 


ST 


R0,N(LNKS)(RA0) H STORE TTYLINK 


0016454 03 


001222 037040 010054 0010054 




22 


A1S 


TUUTCTL+N(SUBST) 


0016456 






23 


RETURN 


2 


0016456 03 


001224 056462 


-001- 


24 


BTSAN 


2 








28 


TAPUTL OW 


0(1225) U 12436 






-001- 


29 


NOTE 


************* THE FIRST ADDRESS OVERWRITTEN IS 001225 ********** 


0016457 






32 


WRTLCON 










33 


H THIS S"BSTATE CONTINUES THE PRINTING OF THE LABEL FILE. 








34 


H THE DATA TO 


BE PRINTED IS PL'T INTO REG'S 6 THRU 13. 


0016457 03 


001225 103041 




35 


LN 


R2,1 


0016460 






36 


WRTLC0N2 




0016460 03 


001226 103020 




37 


ZR 


R1 


0016461 03 


001227 031500 045266 LAYOUT 




38 


LAL 


R4,I 0BUF,RA1 


0016463 03 


001231 043502 




39 


LAX 


R4,R?(RA1) 


0016464 






40 


ONCEAGN 




0016464 03 


0012Z2 140004 




41 


L 


R0,N(LNKS)(RA0) 








42 


TAPUTL OW 


0(1233) #3E790257 






-001- 


43 


NOTE 


************* THE FIRST ADDRESS OVERWRITTEN IS 001233 ********** 
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TAPE UTILITY MULTISCAN FUNCTION 
TAPE UTILITY MONITOR ROUTINES 

0016465 03 001233 037000 121340 0000102 



-001- 
-001 ■ 
-001- 



.ASL 



0:32:20 2/06/81 **** 



CNRUTL 



W77D 



01 CPATCH7 BSNP 0(102) 03E79O257 

02 BL XXX875 

03 NOTE CPATCH7 'CSECT* 

04 NOTE ***************** PATCH AREA BEGINS AT 000102 **************** 



0121340 

0121340 14 000102 106061 

0121341 

0121341 14 000103 037021 125021 TTYAPP 
0121343 

0121343 14 000105 137000 016467 0001235 



0016467 
0016467 



-001- 07 XXX875 PATCHAREA 



-001- 

-001- 
-001- 
-001- 



-001- 
-001- 



08 
09 
10 
11 
12 
13 
14 



LR 

CALL 

BSA 

ENDP 

BL 

NOTE 

NOTE 



R3,R1 U SAVE R1 

LINKRDY 

LINKRDY 

03E79O257 
XXX878 

************ LAST PATCH ADDRESS USED IS 000106 *************** 
***** NUMBER OF PATCH WORDS USED IS 5 (DECIMAL) ******** 



17 XXX878 OWCONTINUE 

18 EOW 03E79O257 

19 NOTE *************** THE LAST ADDRESS OVERWRITTEN IS 001234 ********* 

* 



0016467 03 001235 156000 -- 

0016470 03 001236 153465 -- 
0016471 

0016471 03 001237 156462 -- 

0016472 03 001240 144045 -- 



— 0016155 



-001 
-001 



23 
24 
25 
26 
27 



28 TAPUTL OW 



BPAX 

B 

RETURN 

BTSAN 

ST 



- 29 



NOTE 



RO 

ABORTTU 

2 

2 

R2,N(SSN0)(RA0) 

0(1241) 



03E79O257 



************* THE FIRST ADDRESS OVERWRITTEN IS 001241 ********** 



0016473 03 001241 037000 121345 0000107 



32 CPATCH7 BGNP 0(107) IC3E790257 

-001- 33 BL XXX885 

-001- 34 NOTE CPATCH7 'CSECT* 

-001- 35 NOTE ***************** PATCH AREA BEGINS AT 000107 **************** 



0121345 

0121345 14 000107 106023 

0121346 14 000110 003060 

0121347 14 000111 003120 

0121350 

0121350 14 000112 037000 016475 0001243 



-001- 38 XXX885 PATCHAREA 

39 LR R1,R3 » RESTORE R1 

40 ZR R3 

41 ZR R5 

42 ENDP #3E790257 
-001- 43 BL XXX887 

-001- 44 NOTE ************ LAST PATCH ADDRESS USED IS 000113 *************** 

-001- 45 NOTE ***** NUMBER OF PATCH WORDS USED IS 5 (DECIMAL) ******** 



COMMON NONRESIDENT UTILITIES 

0:32:20 2/06/81 TRADE SECRET - SEE TRADE SECRET RESTRICTIVE NOTICE ON COVER SHEET 



CNRUTL 



PR-1C954-50 
ISSUE 05 PAGE 



68 



B02 



TAPE UTILITY MULTISCAN FUNCTION 
TAPE UTILITT MONITOR ROUTINES 



0016475 
0016475 



0:32:20 2/06/81 **** 

CNRUTL W77D 

-001- 01 *X*887 OWCONTINUE 

02 EOW (K3E790257 

-001- 03 NOTE *************** THE LAST ADDRESS OVERWRITTEN IS 001242 ********* 

* 



0016475 
0016476 
0016477 
0016477 
0016500 
0016501 
0016502 
0016503 
0016504 
0016505 
0016506 
0016507 
0016510 
0016511 
0016512 
0016513 
0016514 
0016515 
0016516 
0016517 
0016520 
0016520 
0016521 
0016522 
0016523 
0016524 
0016524 
0016525 
0016526 
0016527 
0016527 
0016531 
0016532 
0016532 
0016534 
0016535 
0016535 
0016536 
0016537 
0016540 
0016541 
0016542 
0016543 



03 001243 114104 

03 001244 054422 0016120 

03 001245 110537 

03 001246 156005 

03 001247 141541 

03 001250 053016 0016520 

03 001251 141561 

03 001252 053014 0016520 

03 001253 141601 

03 001254 053012 0016520 

03 001255 141621 

03 001256 053010 0016520 

03 001257 141641 -— 

03 001260 053006 0016520 

03 001261 141661 

03 001262 053004 0016520 

03 001263 141701 

03 001264 053002 0016520 

03 001265 141721 

03 001266 110521 

03 001267 004461 

03 001270 004422 

03 001271 004521 

03 001272 006001 

03 001273 005004 

03 001274 054004 0016532 

03 001275 003465 000010 

03 001277 055746 0016477 

03 001300 103525 000010 

03 001302 054027 0016563 

03 001303 110537 

03 001304 056005 

03 001305 103140 - 

03 001306 053016 0016556 

03 001307 103160 

03 001310 053014 0016556 

03 001311 103200 





07 




TZ 




R4 






08 




BC 




C0MP01 






0? 


LDR6S 












10 




RLN 




R5,1 






11 




BPAX 


R5 






12 




LA 




R6,1(RA1> 






13 









INCR 






14 




LA 




R7,1(RA1) 






15 




B 




INCR 






16 




LA 




R8,1(RA1) 






17 




B 




INCR 






18 




LA 




R9,1(RA1) 






19 




B 




INCR 






20 




LA 




R10,1(RA1) 






21 




B 




INCR 






22 




LA 




R11,1(RA1) 






23 




B 




INCR 






24 




LA 




R12,1(RA1> 






25 




B 




INCR 






26 




LA 




R13,1(RA1) 






27 


INCR 












28 




RRN 




R5,1 






29 




AN 




R3,1 


n LINE COUNT 




30 




AN 




R1,2 


H GEN" ED CHAR. COUNT 




31 




AN 




R5,1 


n BPAX POINTER 




32 




IP 




R1 >= R4 THEN 


3 PRGS 


003- 


33 






LR 


R0,R1 




003- 


34 






SR 


R0,R4 




001- 


35 






BC 


PRGS 






36 




IF 




R3 -<= 8 THEN B 


LDRGS 


002- 


37 






CI 


R3,8 




001- 


38 
39 


PRGS 




BNC 


LDRGS 






40 




CI 




R5,8 


H HAS 8 REG'S BEEN F 




41 




BC 




DUMPIT 


# IF YES PRINT DATA 




42 


PRGS1 












43 




RLN 




R5,1 






44 




BPA> 




R5 






45 




ZR 




R6 






46 




B 




ZEROIT 






47 




ZR 




R7 






48 




B 




ZEROIT 






49 




ZR 




R8 





COMMON NONRESIDENT UTILITIES 
0:32:20 2/06/81 TRADE SECRET 



SEE TRADE SECRET RESTRICTIVE NOTICE ON COVER SHEET CNRUTL 



PR-1C954-50 
ISSUE 05 PAGE 



69 












C02 



TAPE UTILITY MULTISCAN FUNCTION 
TAPE UTILITY MONITOR ROUTINES 

00165*4 03 001312 053012 0016556 

0016545 03 001313 103220 

0016546 03 001314 053010 0016556 

001654/ 03 001315 103240 

0016550 03 001316 053006 0016556 

0016551 03 001317 103260 

0016552 03 001320 053C04 0016556 

0016553 03 001321 103300 

C016554 03 001322 053002 0016556 

0016555 03 001323 103320 

0016556 

0016556 03 001324 110521 

0016557 03 001325 004521 

0016560 03 001326 003525 000010 

0016562 03 001330 055753 0016535 

0016563 

0016563 03 001331 131400 010052 0010032 

0016565 03 001333 044503 

0016566 03 001334 044430 

0016567 03 001335 040442 

0016570 03 001336 003445 000006 

0016572 03 001340 050400 020344 0020344 

0016574 03 001342 040451 

0016575 03 001343 014042 

0016576 03 001344 037000 020340 0020340 -001- 

-001- 
-001- 



0020340 

0020340 03 003106 154004 

0020341 03 003107 003100 

0020342 03 003110 003120 

0020343 03 003111 053005 

0020344 



0020344 
0020350 



0:32:20 2/06/61 
CNRUTL 



**** 

H77D 



01 

02 

03 

04 

05 

06 

07 

08 

0? 

10 

11 ZEROIT 

12 

13 

14 

15 

16 DUMPIT 

17 

18 

19 

20 

21 

22 DPATCH 

23 

24 

25 

26 TAPUTL 

27 

28 

2? 



B 

ZR 

I 

ZR 

B 

ZR 

B 

ZR 

B 

ZR 

RRN 
AN 
CI 
BNC 

LAL 

ST 

ST 

L 

CI 

NOTE 

BNCL 

L 

TZ 

BGNP 

BL 

NOTE 

NOTE 



ZEROIT 

R? 

ZEROIT 

R10 

ZEROIT 

R11 

ZEROIT 

R12 

ZEROIT 

R13 

R5,1 
R5,1 
R5,8 
PRGS1 



U HAS 8 REG'S BEEN FILLED 



R0,TUUTCTL,RA1 

R4,N(LEN0)(RA1) 

R1,N(AUX1)(RA1) 

R2,N(SUBST)(RA1) 

R2,6 

! CHANGE BNCL TO BNC 

RPRNT K IF YES DO A CR,LF 

R2,N(AUX2)(RA1) 

R2 U = CR,LF SP,SP 1 

0(3106) # 12436 

XXX896 

TAPUTL 'CSECT' 

***************** PATCH AREA BEGINS AT 003106 **************** 



tt SET RA1 TO TAPUTIL CONTROL BLK 
K CHAR COUNT FROM IOBUF 
(f GEN 'ED CHAR COUNT 

U IS THIS THE FIRST STRING FROM IOBUF ? 



NO CR,LF AND SP,SP 



0020344 03 003112 103501 000000 TTYTBL 

0020346 03 003114 003521 001402 TTYTBL 
0020350 

0020350 03 003116 140404 

0020351 03 003117 040445 

0020352 03 003120 001443 

0020353 03 003121 044445 

W0020354 03 003122 037021 124576 TTYAPP 
0020356 03 003124 010270 « 



-001- 32 
33 
34 
35 
36 
37 
38 

-001- 39 
40 

-001- 41 
42 
43 
44 
45 
46 
47 
48 
49 



XZX896 PATCHAREA 



RPRNT 



BC 
ZR 
ZR 
B 

SPELL 

LI 

SPELL 

LI 
RPRNTIT 

L 

L 

AR 

ST 
DDELETE NOTE 

BSA 

DATA 



RPRNT 

R4 

R5 

RPRNTIT 

R4,(CR / LF) 
R4,gt 

R5,(SP,SP) 
R5,« 

R0,N(LNKS)(RA1) 

R2,N(SGN0)(RA1) 

R2,R3 

R2,N(SGN0)(RA1) 

5 

LPMRY 

0(10270) 



# GET TTY LINK 

It OLD IOBUF POINTER 

# NEW IOBUF POINTER 
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002 




TAPE 


UTILITY MULTISCAN FUNCTION 












0:32:20 2/06/81 **** 


TAPE 


UTILITY MONITOR ROUTINES 












CNRUTL W77D 


002035/ 


03 


003125 


031463 




01 




DATA 


0(31463) 




0020360 


03 


003126 


031463 




02 




DATA 


0(31463) 














03 


DINSERT 


' LLPRINT PRIORI 


3,FMT=(WRD,WRD,ASC,ASC,ASC,ASC,ASC,ASC,ASC,ASC), 


















LIN 




0020361 


03 


003127 


140522 




05 




L 


R5,N(SUBST)(RA1) 




0020362 


03 


003130 


003525 000006 




06 




CI 


R5,6 




0020364 


03 


003132 


054003 0020367 




07 




BC 


OUTOUT 


K RETURN AT SUBSTATE NXTIM 


0020365 


03 


003133 


037040 010054 0010054 




08 




A1S 


TUUTCTL+N(SUBST) 


U GO TO SUBSTATE NXTIM 


0020367 










09 


OUTOUT 








0020367 










10 




RETURN 


2 




0020367 


03 


003135 


156462 


-001- 


11 




BTSAN 


2 




0020370 










12 


NXTIM 








0020370 


03 


003136 


140103 




13 




L 


R4,N(LEN0)(RA0) 




0020371 


03 


003137 


040030 




14 




L 


R1,N(AUX1)(RA0) 




0020372 










15 




IF 


R1 >= R4 THEN B 


WHTNXT 


0020372 


03 


003140 


006001 


-003- 


16 




LR 


R0,R1 




0020373 


03 


003141 


005004 


-003- 


17 




SR 


R0,R4 




0020374 


03 


003142 


054011 0020405 


-001- 


18 




BC 


WHTNXT 




0020375 


03 


003143 


040045 




19 




L 


R2,N(SGN0><RA0) 


# IOBUF INDEX POINTER 


0020376 


03 


003144 


003061 




20 




LN 


R3,1 


ft NO LINE FEED OR SPACE 


0020377 


03 


003145 


044071 




21 




ST 


R3,N(AUX2)(RA0) 




0020400 


03 


003146 


031460 045266 LAYOUT 




22 




LAL 


R3,I 0BUF,RA1 
R3,R?(RA1) 




0020402 


03 


003150 


043462 




23 




LAX 


# POSITION RA1 TO GET MORE CHAR'S. 












24 


DPATCH 


NOTE 


! CHANGE BL TO B 


IN NEXT LINE 


0020403 


03 


003151 


037000 016464 0016464 




25 




BL 


ONCEAGN 




0020405 










26 


WHTNXT 






# GET NEXT STRING OF CHAR'S. 


0020405 


03 


003153 


140045 




27 




L 


R2,N(SGN0)(RA0) 




0020406 


03 


003154 


004441 




28 




AN 


R2,1 


« CORRECT IOBUF POINTER 


0020407 


03 


003155 


003060 




29 




ZR 


R3 


* LINE FEED AND SPACE 


0020410 


03 


003156 


044071 




30 




ST 


R3,N(AUX2)(RAQ) 














31 


DPATCH 


NOTE 


! CHANGE BL TO B 


IN NEXT LINE 


0020411 


03 


003157 


037000 016460 0016460 




32 




BL 


WRTLC0N2 




0020413 










33 




ENDP 


NR 


# 12436 










-001- 


34 




NOTE 


************ LAST PATCH ADDRESS USED IS 003160 *************** 










-001- 


35 




NOTE 


***** NUMBER OF 


»ATCH WORDS USED IS 43 (DECIMAL) ******** 












38 


DDELETE NOTE 


2 




0016600 










3? 


NXTIM_ 






• 


0016600 03 


001346 


137000 020370 0020370 




40 




BL 


NXTIM 




0016602 










41 




EOW 




H 12436 










-001- 


42 




NOTE 


*************** 
* 


rHE LAST ADDRESS OVERWRITTEN IS 001347 ********* 


■ 
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TAPE UTILITY MULTISCAN FUNCTION 
TAPE UTILITY MONITOR ROUTINES 
0016602 



0016602 03 001350 156001 

0016603 03 001351 153004 0016607 

0016604 03 001352 153620 0016424 

0016605 J3 001353 153076 0016703 

0016606 03 001354 153003 0016611 



E02 



01 INMON 

02 K MONITOR FOR INPUTTING A TAPE BLOCK. 



0:32:20 2/06/81 **** 
CNRUTL W77D 



04 


BPAX 


R1 




05 


B 


SEZTU 


It GET CONTROL OF TAPE UNIT 


06 


B 


RD1M0N 


It READ TAPE 


07 


B 


IDLSTATE 




08 


B 


TAPUTLCOM 





0016607 

0016607 03 001355 137000 015753 0015753 

0016611 

0016611 03 001357 137000 016127 0016127 



14 1t TRANSFER VECTORS 

15 SEZTU 

16 BL SEZTU 

17 TAPUTLCOM 

18 BL~ TAPUTLCOM 
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TAPE UTILITY MULTISCAN FUNCTION 
TAPE UTILITY MONITOR ROUTINES 
0016613 



0016613 03 001361 156001 

0016614 03 001362 153773 0016607 

0016615 03 001363 153003 0016620 

0016616 03 001364 153065 0016703 

0016617 03 001365 153772 0016611 



0:32:20 2/06/81 **** 
CNRUTL W77D 



01 OPMON 

02 n UTILITY MONITOR FOR HANDLING THE WRITING OF A TAPE BLK. 



tt SIEZE TAPE UNIT CONTROL 



04 


BPAX 


R1 


05 


B 


SEZTU 


06 


B 


BGNWRIT 


07 


B 


IDLSTATE 


08 


B 


TAPUTLCOM 



0016620 



0016620 03 001366 130400 045266 LAYOUT 

0016622 03 001370 010415 

0016623 03 001371 073047 

0016624 03 001372 010700 

0016625 03 001373 156000 

0016626 03 001374 153052 0016700 

0016627 03 001375 153264 0017113 

0016630 

0016630 03 001376 156462 



12 BGNWRIT 

13 tt SUBSTATE USED TO INITIATE WRITE OF I/OBUFFER TO TAPE 

RO,I 08UF 

R0,S?EOF> K POSITION FOR WRITE 

TAPUCLNT # START WRITE OF BUFFER 

RXEQR If SUBROUTINE REQR IS IN PROGRAM CTAPH 

5,TAPUCLNT 4,WRITE 1,1 1,0 5,0 

RO 

ADRETN 

ABORTTU 

2 

2 





15 


LL 




16 


RRN 




17 


WRITE 


002- 


18 


BSAI 


001- 


19 


VFD 




20 


BPAX 




21 


B 




22 


B 




23 


RETURN 


001- 


24 


BTSAN 



COMMON NONRESIDENT UTILITIES 
0:32:20 2/06/81 TRADE SECRET 



SEE TRADE SECRET RESTRICTIVE NOTICE ON COVER SHEET CNRUTL 



PR-1C954-50 
ISSUE 05 PAGE 



73 



602 



TAPE UTILITY MULTISCAN FUNCTION 
TAPE UTILITY MONITOR ROUTINES 
0016631 



0016631 03 001377 131460 043317 CTSD 

0016633 03 001401 040026 

0016634 03 001402 040042 

0016635 03 001403 056002 

0016636 03 001404 153017 0016655 

0016637 03 001405 153044 0016703 

0016640 03 001406 153051 0016711 

0016641 03 001407 153042 0016703 

0016642 03 001410 153111 0016753 

0016643 03 001411 153040 0016703 

0016644 03 001412 153046 0016712 

0016645 03 001413 153036 0016703 

0016646 03 001414 153076 0016744 

0016647 03 001415 153034 0016703 

0016650 03 001416 153105 0016755 

0016651 03 001417 153032 0016703 

0016652 03 001420 153205 0017057 

0016653 03 001421 153030 0016703 

0016654 03 001422 153135 0017011 



0:32:20 



2/06/81 **** 



CNRUTL 

01 AUDITMON 

02 If THIS IS THE TASK DISPENSER FOR THE TAPE TO TAPE AUDIT PROGRAM 

04 
05 
06 
07 
08 
0? 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 



W77D 



LAL 


R3,TCBADR,RA1 


L 


R1,N(TPN0)(RA0) 


L 


R2,N(SUBST)(RA0) 


BPAX 


R2 


B 


CMPSTCK 


B 


IDLSTATE 


B 


POSCOMPR 


B 


IDLSTATE 


B 


SAVECRC 


B 


IDLSTATE 


B 


POSREQ. 


B 


IDLSTATE 


B 


REDCOMR 


B 


IDLSTATE 


B 


READOTHER 


B 


IDLSTATE 


B 


WRTITAB 


B 


IDLSTATE 


B 


REDMORE 



0016655 



0016655 03 
0016657 03 

0016661 03 

0016662 03 

0016664 03 

0016665 03 

0016666 03 

0016667 03 

0016671 03 

0016672 03 

0016673 03 

0016674 



001423 131400 043337 CTSD 
001425 016401 000003 

001427 010422 --- 

001430 016441 000003 

001432 042460 

001433 042502 

001434 010473 

001435 016064 144000 
001437 044063 

001440 040021 

001441 046402 



0016674 03 001442 137020 126205 CTAPH 

0016676 03 001444 010030 

0016677 03 001445 155214 0017113 

0016700 

0016700 03 001446 137040 010054 0010054 



26 CMPSTCK 

27 » THIS SUBSTATE WILL ANALYZE WHAT TYPE OF REQUEST WAS MADE 

28 It AND IF SYSTEM DEFENSES SHOULD BE OVERCOME. 



30 LAL R0,TUSTAT,RA1 

31 LRM R0,R1,M(TAPN0> 

32 RRN R1,W(TAPN0> 

33 LRM R2,R1,M(TAPN0) 

34 LX R3,R0(RA1) 

35 LX R4 / R2(RA1) 

36 RRN R3,S(TSTATE) 

37 IRM R3,R4,M(TSTATE)+M 

38 ST R3,N(LEN0)(RA0) 

39 L R1,N(8KN0)(RA0) 

40 STX . R0,R2(RA1> 



-002- 
-001- 



U PREPARE TO SAVE TU STATUS BITS 

H RO WILL CONTAIN STD TAPE 

H R2 WILL CONTAIN THE COMPARED TAPE 

H R3 AND R4 WILL CONTAIN THE STATUS 

# INFORMATION FOR THE TWO UNITS INVOLVED. 
H R3 CONTAIN STD. TAPE STATUS IN LOW BITS 

(REDON)+M(SEQERR) M COMP TAPE IN HIGH BITS 

* SAVE FOR AFTER COMPARE 

H SET UP TRACK AND BLOCK NUMBER, 
K FORCE UNIT INTO SERVICE. 



42 NOOVERIDE 

43 * RO AND R1 MUST BE SET UP TO TAPE AND BLOCK NUMBER FOR SEIZE 
SEIZE TAPUCLNT 

OPENTCB 

5,TAPUCINT 1,0 1,0 2,0 3,1 1,1 

ABORTTU_ K SYSTEM WILL NOT ALLOW TAPE ACCESS. 



44 
45 
46 
47 

48 ADRETN 

49 A1S 



BSA 
VFD 
BNC 



TUUTCTL+N(SUBST) 
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A03 




TAPE UTILITY MULTISCAN FUNCTION 










0:32:20 2/06/81 **** 




TAPE UTILITY MONITOR ROUTINES 










CNRUTL W77D 




0016702 






01 




RETURN 


2 




0016702 03 
0016703 


001450 056462 


-001- 


02 




BTSAN 


2 








06 


IDLSTATE 












07 


# Till! 


SUB-STATE WILL WAIT FOR THE TAPE SYSTEM TO COMPLETE ITS PRESENT 










08 


H TASK 


. THE NEXT STATE WILL BE TRIGGERED UPON THE TASK COMPLETION. 










10 




STATST 


TAPUCLNT 




0016703 03 




-002- 


11 




BSAI 


RXEQR it SUBROUTINE REQR IS IN PROGRAM CTAPH 




0016704 03 


001452 012300 


-001- 


12 




VFD 


5, TAPUCLNT 4,STATST 1,1 1,0 5,0 




0016705 






13 


ACEPTCK 






0016705 03 


001453 156000 




14 




BPAX 


RO 




0016706 03 


001454 153772 0016700 




15 




B 


ADRETN 




0016707 03 


001455 153204 0017113 




16 




B 


ABORTTU 




0016710 






17 




RETURN 


2 




0016710 03 


001456 156462 


-001- 


18 




BTSAN 


2 




0016711 






22 


POSCOMPR 












23 


« THIS 


SUBSTATE WILL POSITION THE COMPARED UNIT TO NEXT BLOCK. 




0016711 03 


001457 110422 




25 




RRN 


R1,W(TAPN0) 




0016712 






26 


POSRECt 








0016712 03 001460 103422 000003 




27 




NI 


R1,M(TAPN0) K PREPARE FOR INDEX 




0016714 03 


001462 002430 000003 




28 




STM 


R1,N(TAPN0)(RA1),M(TAPN0) * SWITCH TAPE NUMBER IN KB. 




0016716 03 


001464 031000 043337 CTSD 




29 




LAL 


RO,TUSTAT,RAO 

R2,R1(RA0> « GET PRESENT TAPE POSITION. 




0016720 03 


001466 042041 




30 




LX 




0016721 03 


001467 031000 010052 0010052 




31 




LAL 


RO,TUUTCTL,RAO 




0016723 






32 


BLKPOSRS 






0016723 03 


001471 140021 




33 




L 


R1,N(BKNO)(RA0) * GET BLOCK NUMBER TO BE COMPARED 




0016724 03 


001472 034420 043463 CTSD 




34 




STL 


R1,MSFPR0G 




0016726 03 


001474 024055 




35 




TBN 


R2,S(P0S0K) 




0016727 03 


001475 055006 0016735 




36 




BNC 


POSITI 




0016730 03 


001476 024055 




37 




TBN 


R2,S(P0S0K) # IS POSITION VERIFIED? 




0016731 03 


001477 055004 0016735 




38 




BNC 


POSITI 




0016732 03 


001500 017022 003777 




39 




CRM 


R1,R2,M(L0GBLK) # IS POSITION REQUIRED? 




0016734 03 


001502 054744 0016700 




40 




BC 


ADRETN (K NO 




0016735 






41 


POSITI 














42 




POSITION 




0016735 03 




-002- 


43 




BSAI • 


RZEQR n SUBROUTINE REQR IS IN PROGRAM CTAPH 




0016736 03 


001504 011100 


-001- 


44 




VFD 


5, TAPUCLNT 4, POSITION 1,1 1,0 5,0 
RO 




0016737 03 


001505 156000 




45 




BPAX 




0016740 03 


001506 153740 0016700 




46 




B 


ADRETN 




0016741 03 


001507 153152 0017113 




47 




B 


ABORTTU 




0016742 






48 




CALL 


WAIT ~ 




0016742 03 


001510 173025 


-001- 


49 




BSAI 


WXAIT U SUBROUTINE WAIT IS IN PROGRAM CBLM 
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B03 


TAPE 


UTILITY MULTISCAN FUNCTION 








0:32:20 2/06/81 **** 


TAPE 


UTILITY MONITOR ROUTINES 








CNRUTL W77D 


0016743 


03 


001511 


153760 0016723 




01 


B 


BLKPOSRST 


0016744 










05 


REDCOMR 














06 


THIS SUBSTATE WILL SAVE CRC OF BLOCK JUST READ IN AND READ MATE UNIT. 


0016744 


03 


001512 


130400 046765 MASACS 




08 


LL 


R0,I OBUF+BLKSIZE-1 


0016746 


03 


001514 


044004 




09 


ST 


RO,nTlNKSXRAO) It SAVE CRC OF BLK JUST READ FOR COMPARE. 


0016747 










10 


REDITI 




0016747 


03 


001515 


102430 000003 




11 


STM 


R1,N(TAPN0KRA1>,M(TAPN0) * TAPE NUMBER TO BE USED IN READ. 


0016751 


03 


001517 


037000 015762 0015762 




12 


BL 


RD1M0N 


0016753 










16 


SAVECRC 


■ 


0016753 


03 


001521 


110422 




17 


RRN 


R1,2 If READ FIRST UNIT. SAVE CRC AFTER READ . 


0016754 


03 


001522 


053773 0016747 




18 


B 


REDITI 


0016755 










22 


READOTHER 














23 


» THIS SUBSTATE WILL RECOVER THE COMPARED TAPE BLOCK'S CRC AND CHECK 












24 


ft IT AGAINST 


THE STANDARD UNITS CRC. 


0016755 


03 


001523 


130400 046765 MASACS 




26 


LL 


R0,I OBUF+fiLKSIZE-1 It GET CRC. 


0016757 


03 


001525 


040044 




27 


L 


R2,NTLNKS)(RA0> If GET STD. CRC FOR COMPARISON. 


0016760 


03 


001526 


020002 




28 


CR 


R0,R2 


0016761 


03 


001527 


054030 0017011 




2? 


BC 


REDMORE If CRC'S ARE THE SAME - CONTINUE. 


0016762 


03 


001530 


040105 




30 


L 


R4,N(SGN0)(RA0> 


0016763 


03 


001531 


024105 TTYTBL 




31 


TBN 


R4,S(DETL) If IS A DETAILED REPORT REQUESTED? 


0016764 


03 


001532 


055013 0016777 




32 


BNC 


CORRCHK 


0016765 


03 


001533 


040146 




33 
34 


L 
SPELL 


R6,N(TPN0)(RA0) » PREPARE FOR MESSAGE. 
R7,(B,L,K) 


0016766 


03 


001534 


003561 000272 TTYTBL 


-001- 


35 


LI 


R7,BXLK 


0016770 


03 


001536 


040201 




36 


L 


R8,N(BKNO)(RA0) If BLOCK NUMBER 


0016771 










37 


PRINT 


PACTI0N=A,FMT«=(WRD(A,U,D,I,T),WRD(T,A,P,E),BCD,WRD,LJO 










-001- 


39 


It MESSAGE PROTOTYPE 










-001- 


40 


# A mm 


AUDIT TAPE nnnn WRD xxxx 


0016771 


03 


001537 


073053 


-002- 


41 


BSAI 


PXMRY If SUBROUTINE PMRY IS IN PROGRAM TTYAPP 


0016772 


03 


001540 


101200 


-002- 


42 


VFD 


1,1 2,0 1,0 3,1 1,0 1,1 1,0 2,0 1,0 3,0 


0016773 


03 


001541 


023010 


-002- 


43 


VFD 


4,TTY0 4,TTY0 L X 4,TTY0 WRD 4,TTY0 BCD 


0016774 


03 


001542 


021042 


-002- 


44 


VFD 


4,TTY0~ 4,TTY0 4",TTY0 4,TTY0_ 


0016775 


03 


001543 


010007 TTYTBL 


-002- 


45 


VFD 


5,2 117AXUMT 


0016776 


03 


001544 


000242 TTYTBL 


-002- 


46 


VFD 


5, 11,TXAPE 










-001- 


47 


NOTE 


THE VARIABLE PORTION OF THE OUTPUT MESSAGE TO BE PRINTED IS 
CONTAINED IN GENERAL REGISTERS R6,R7,R8, 


0016777 










49 


CORRCHK 
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TAPE 


UTILITT MULTISCAN FUNCTION 












0:32:20 2/06/81 **** 


TAPE 


UTILITY MONITOR ROUTINES 












CNRUTL W77D 


0016777 


03 


001545 


124110 TTYTBL 


01 




TBN 


R4,S(C0RR) 


n 


IS AUTO-CORRECTION REQUIRED? 


0017000 


03 


001546 


055007 0017007 


02 




BNC 


ADCNT1 






0017001 


03 


001547 


040026 


03 




L 


R1,N<TPN0>(RA0) 






0017002 


03 


001550 


040041 


04 




L 


R2,N(8KNO)(RA0> 






0017003 


03 


001551 


003442 014000 


05 




NI 


R2,M(TRACK> 


H 


IS TRACK ZERO IN ERROR. 


0017005 


03 


001553 


054106 0017113 


06 




BC 


ABORTTU_ 


» 


CANNOT CORRECT TRACK ZERO. ABORT FATAL 
ERROR. 


0017006 


03 


001554 


053703 0016711 


08 




B 


POSCOMPR 


§ 


POSITION UNIT FOR CORRECTION. 


0017007 








09 


ADCNT1 










0017007 


03 


001555 


137040 010061 0010061 


10 




A1S 


TUUTCTL+N(ERCT) 


§ 


ADD TO ERROR COUNT. 


0017011 








11 


REDMORE 








0017011 


03 


001557 


140021 


12 




L 


R1,N(BKN0)(RA0) 






0017012 


03 


001560 


004421 


13 




AN 


R1,1 


n 


PREPARE TO READ NEXT BLOCK. 


0017013 


03 


001561 


044021 


14 




ST 


R1,N(BKN0)(RA0) 




' 


0017014 


03 


001562 


016461 003777 


15 




LRM 


R3,R1,M(BLKADR> 






0017016 


03 


001564 


003465 000526 MASACS 


16 




CI 


R3,BLKMAX-1 


H 


HAS LOGICAL END OF TAPE BEEN REACHED. 


0017020 


03 


001566 


055013 0017033 


17 




BNC 


NXB 






0017021 


03 


001567 


003420 004000 


18 




AI 


R1,ES(TRCK) 




■_■• - 


0017023 


03 


001571 


024035 


19 




TBN 


R1,S(E0F) 


n 


HAVE ALL TRACKS BEEN AUDITED 


0017024 


03 


001572 


054036 0017062 


20 




BC 


DONPO 






0017025 


03 


001573 


003061 


21 




LN 


R3,1 






001 7026 


03 


001574 


016023 003777 


22 




IRM 


R1,R3,M(BLKADR) 


K POSITION TO NEXT TRACK. BLK 1. 


0017030 


03 


001576 


002426 014000 


23 




STM 


R1,N(TRACK>(RA1),M(TRACK> # SET UP TRACK BITS TO NEXT TRACK 


0017032 


03 


001600 


044021 


24 




ST 


R1,N(BKNO)(RAO) 






0017033 








25 


NXB 










0017033 


03 


001601 


102425 017777 


26 




STM 


R1,N(L0GBLKXRA1), 


MCLOGE 


0017035 


03 


001603 


003000 


27 




ZR 


RO 






0017036 


03 


001604 


044002 


28 




ST 


RO,N(SUBST)(RAO) 






0017037 


03 


001605 


040026 


29 




L 


R1,N(TPN0)(RA0) 






0017040 


03 


001606 


031400 043337 CTSD 


30 




LAL 


R0,TUSTAT,RA1 






0017042 


03 


001610 


016461 000003 


31 




LRM 


R3,R1,M(TAPN0) 






0017044 


03 


001612 


042443 


32 




LX 


R2,R3(RA1) 


H 


GET PTP OF MASTER TAPE 


0017045 


03 


001613 


040061 


33 




L 


R3,N(BKNO)(RA0> 






0017046 


03 


001614 


031400 043317 CTSD 


34 




LAL 


R0,TCBADR,RA1 






0017050 


03 


001616 


017043 003777 


35 




CRM 


R2,R3,M(BLKADR) 


# 


IS POSITION REQUIRED. 


0017052 


03 


001620 


055640 0016712 


36 




BNC 


POSREQ 






0017053 


03 


001621 


003004 


37 




LN 


R0,4 






0017054 


03 


001622 


044002 


38 




ST 


RO,N(SUBST)(RAO) 






0017055 


03 


001623 


037000 015262 0015262 


39 




BL 


NOCLR 


n 


JUST CONTINUE 


0017057 








43 


WRTITAB 
















44 




WRTAB 


TAPUCLNT 


» WRITE BUFF 


0017057 


03 


001625 


173047 


-002- 45 




BSAI 


RXEQR 


n 


SUBROUTINE REQR IS IN PROGRAM CTAPH 


0017060 


03 


001626 


010740 


-001- 46 




VFD 


5,TAPUCLNT 4,WRTAB 


1/1 


1/1 5,0 


0017061 


03 


001627 


153624 0016705 


47 




B 


ACEPTCK 
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TAPE UTILITY MULTISCAN FUNCTION 

TAPE UTILITY MONITOR ROUTINES 

0017062 

0017062 03 001630 131400 043337 CTSO 

0017064 03 001632 040026 

0017065 03 001633 010422 

0017066 03 001634 003422 000003 

0017070 03 001636 043561 

0017071 03 001637 040167 

0017072 03 001640 014167 

0017073 03 001641 055010 0017103 

0017074 03 001642 040023 

0017075 03 001643 026034 

0017076 03 001644 002420 054000 



01 DONPO 






02 


LAL 


R0,TUSTAT.RA1 
R1,N(TPN0)(RA0) 


03 


L 


04 


RRN 


R1,W(TAPN0) 


05 


NI 


R1,M(TAPN0) 


06 


LAX 


R7,R1(RA1> 


07 


L 


R7,N(ERCT)(RA0) 


08 


TZ 


R7 


09 


BNC 


PUTOOS 


10 


L 


R1,N(LENO)(RA0) 


11 


SBN 


R1,S(COMPR0K) 


12 


STM 


R1,0(RA1),M(TST 


13 TAPUTL 


OH 


0(1646) 



0:32:20 2/06/81 **** 
CNRUTL W77D 



If SET UP ACCESS TO COMPARED TU STATUS. 



K ERRORS EXIST INDICATE BY PRINTOUT 



-001- 14 



NOTE 



n SET COMPARE PASSED BIT 
+M(COMPROK)+M(REDON) (KSET STATUS BACK. 
«E800224 
************* THE FIRST ADDRESS OVERWRITTEN IS 001646 ********** 



0017100 03 001646 037000 121611 0000353 



17 CPATCH7 BGNP 0(353) #3E800224 

-001- 15 BL XXX941 

-001- 1\> NOTE CPATCH7 'CSECT' 

-001- 20 NOTE ***************** PATCH AREA BEGINS AT 000353 **************** 



0121611 

0121611 14 000353 103140 

0121612 14 000354 044140 



0121613 14 000355 003541 000153 TTYTBL 

0121615 

0121615 14 000357 037000 017102 0001650 



n ZERO OUT AUDIT CONTROL NUMBER 



-001- 23 XXX941 PATCHAREA 

24 ZR R6 

25 ST R6,N(UTCTL)(RA0) 

26 SPELL R6,(M,A,T,C,H) 
-001- 27 LI R6,MXATCH 

28 ENDP #3E800224 

-001- 29 BL XXX946 

-001- 30 NOTE ************ LAST PATCH ADDRESS USED IS 000360 *************** 

-001- 31 NOTE ***** NUMBER OF PATCH WORDS USED IS 6 (DECIMAL) ******** 



0017102 

0017102 03 001650 153003 

0017103 



0017103 



0017105 



-001- 



-001- 



-001- 



34 XXX946 OWCONTINUE 

35 B OKINS 

36 EOW 13E800224 

37 NOTE *************** THE LAST ADDRESS OVERWRITTEN IS 001650 ********* 

* 



41 PUTOOS 

42 TAPUTL OW 

43 NOTE 



0(1651) «E800008 

************* THE FIRST ADDRESS OVERWRITTEN IS 001651 ********** 
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E03 




TAPE UTILITY MULTISCAN FUNCTION 








0:32:20 2/06/81 **** 






TAPE UTILITT MONITOR ROUTINES 




01 


CPATCH7 BGNP 


CNRUTL W77D 
0(70) IK3E800008 






0017103 03 001651 137000 121326 0000070 


-001- 


02 


BL 


XXX952 








-001- 


03 


NOTE 


CPATCH7 'CSECT' 








-001- 


04 


NOTE 


***************** PATCH AREA BEGINS AT 000070 **************** 






0121326 


-001- 


07 


XXX952 PATCHAREA 










08 


SPELL 


R6,(R,E,P,T) 






0121326 14 000070 103541 000033 TTYTBL 


-001- 


09 


LI 


R6,RXEPT 






0121330 




10 


PRINT 


PACTION=**,FMT=(WRD(A / U,D,I,T),WRD(T,A,P,E) / WRD,0EC) 








-001- 


12 


n MESSAGE PROTOTYPE 




* 




-001- 


13 


U ** mm 


AUDIT TAPE WRD ddddd 






0121330 14 000072 073053 


-002- 


14 


BSAI 


PXMRY If SUBROUTINE PMRY IS IN PROGRAM TTYAPP 






0121331 14 000073 104200 


-002- 


15 


VFD 


1,1 2,0 1,0 3,4 1,0 1,1 1,0 2,0 1,0 3,0 






0121332 14 000074 021100 


-002- 


16 


VFD 


4,TTY0_ 4,TTY0 4,TTY0 DEC 4,TTY0 WRD 






0121333 14 000075 021042 


-002- 


17 


VFD 


4,TTY0 4,TTY0 4,TTY0~ 4,TTY0 " 






0121334 14 000076 010007 TTYTBL 


-002- 


18 


VFD 


5,2 11,AXUDIT " 






0121335 14 000077 000242 137000 TTYTBL 


-002- 


19 


VFD 


5, 11,TXAPE 








-001- 


20 


NOTE 


THE VARIABLE PORTION OF THE OUTPUT MESSAGE TO BE PRINTED IS 
CONTAINED IN GENERAL REGISTERS R6,R7, 








-001- 


22 


NOTE 


****THIS MESSAGE WILL RESULT IN A MAJOR ALARM**** 




K 


0121336 14 000100 137000 020215 0002763 




23 


BL 


ABORTTU 






0121340 




24 


ENDP 


NR #3E800008 








-001- 


25 


NOTE 


************ LAST PATCH ADDRESS USED IS 000101 *************** 








-001- 


26 


NOTE 


***** NUMBER OF PATCH WORDS USED IS 10 (DECIMAL) ******** 






0017105 




29 


EOW 


*3E800008 








-001- 


30 


NOTE 


*************** THE LAST ADDRESS OVERWRITTEN IS 001652 ********* 
* 






0017105 




34 


OKINS 








0017105 




35 


PRINT 


PACTION=A,FMT*(WRD(A,L',D,I,T),WRD(T,A,P,E),WRD,DEC) 




' 




-001- 


37 


* MESSAGE PROTOTYPE 








-001- 


38 


(t A mm 


AUDIT TAPE WRD ddddd 






0017105 03 001653 173053 


-002- 


39 


BSAI 


PXMRY # SUBROUTINE PMRY IS IN PROGRAM TTYAPP 






0017106 03 001654 101200 


-002- 


40 


VFD 


1,1 2,0 1,0 3,1 1,0 1,1 1,0 2,0 1,0 3,0 






0017107 03 001655 021100 


-002- 


41 


VFD 


4,TTY0_ 4,TTY0 4,TTY0 DEC 4,TTY0 WRD 






0017110 03 001656 021042 


-002- 


42 


VFD 


4,TTY0_ 4,TTY0_ 4,TTY0 4,TTY0 ~ 






0017111 03 001657 010007 TTYTBL 


-002- 


43 


VFD 


5,2 11,AXUDIT 






0017112 03 001660 000242 137000 TTYTBL 


-002- 


44 


VFD 


5, 11,TXAPE 








-001- 


45 


NOTE 


THE VARIABLE PORTION OF THE OUTPUT MESSAGE TO BE PRINTED IS 
CONTAINED IN GENERAL REGISTERS R6,R7, 






0017113 




47 


ABORTTU 








0017113 03 001661 137000 020215 0020215 
COMMON NONRESIDENT UTILITIES 




48 


BL 


ABORTTU 
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F03 



TAPE UTILITY MULTISCAN FUNCTION 
TAPE UTILITY MONITOR ROUTINES 



0:32:20 2/06/81 **** 
CNRUTL W77D 



0017115 



0017115 

0017115 03 

0017116 03 

0017117 03 

0017120 03 

0017121 03 

0017122 03 

0017123 03 

0017124 03 



01 LOMASMON 

02 n THIS IS THE TASK DISPENSER FOR THE OFF-LINE GENERIC AND XLATION RELOAD 

03 # PROGRAM. 

05 

001663 156001 06 

001664 153007 0017125 07 

001665 153564 0016703 08 

001666 153173 0017313 09 

001667 153562 0016703 10 

001670 153041 0017163 11 

001671 153054 0017177 12 

001672 153125 0017251 13 



BEGIN 


() 


BPAX 


R1 


B 


OPENLOK 


B 


IOLSTATE 


B 


R01M0N 


B 


IDLSTATE 


B 


DISECT 


B 


MOVEOVER 


B 


FINECH 



0017125 



0017125 

0017125 03 001673 137020 003674 CBLM 

0017127 

0017127 03 001675 137020 110443 CSYSUB 

0017131 03 001677 151003 

0017132 

0017132 03 001700 055014 0017146 

0017133 03 001701 040006 

.0017134 03 001702 003020 

0017135 03 001703 037020 126205 CTAPH 

0017137 03 001705 011123 

0017140 03 001706 043705 

0017141 03 001707 047305 

0017142 03 001710 151311 

0017143 03 001711 141400 

0017144 03 001712 162003 

0017145 03 001713 053150 0017315 

0017146 

0017146 

0017146 03 001714 151023 



17 

18 

19 

20 

-001- 21 

22 

-001- 23 

24 

25 

-001- 26 

27 

28 

29 

-002- 30 

-001- 31 

-001- 32 

-001- 33 

-001- 34 

-001- 35 

36 

37 

38 

39 

-001- 40 

41 

42 

-001- 43 



OPENLOK 

U THIS STATE HILL BE USED TO OPEN THE APPROPRIATE FILE IN PREPARATION 

K TO READ IT INTO THE OFF-LINE. 



CALL 

BSA 

CAtL 

BSA 

TBS 

IF 



U STOP MAS AUDIT 



U TEAR DOHN HRITE-PROTECT 
K HAS 'GENERIC REQUESTED ? 



STOPPSAU 
STOPPSAU 
INITOST 
INITOST 

N(LENO)(RAO),0 
CF = 1 THEN RGBEGIN 
IFS988 

ro,n(tpnoxrao> n TAPE NO. 

R1 

TAPUCLNT,(G,E,N,E,R,I,C) 

OPENTCB 

5,TAPUCLNT 1,0 1,1 2,0 3,<(7+1)/2)+1 1,0 3,«7+1)/2>-1 

8,ASC G 8,ASC E 

8,ASC N 8,ASC E 

8,ASC R 8,ASC I 

8,ASC C 8,ASC~ 
# OPEN FAILURE DETECTED BY 'IDLSTATE' 

IBS N(LEN0)(RA0),0 if TURN OFF REQUEST FLAG 
B ADVSUBST 



BNC 

L 

ZR 

OPENE 

BSA 

VFD 

VFD 

VFD 

VFD 

VFD 



IFS988 

TBS 
TAPUTL OW 

NOTE 



RGEND 



N(LEN0)(RA0),1 
0(1715) 



K WAS 'TRNSLN' 
n 13591 



REQUESTED ? 



************* THE FIRST ADDRESS OVERWRITTEN IS 001715 ********** 



COMMON NONRESIDENT UTILITIES 
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603 



TAPE UTILITY MULTISCAN FUNCTION 

TAPE UTILITY MONITOR ROUTINES 

01 TFAPCH2 BSNP 
0017147 03 001715 037000 120763 0001767 -001- 02 BL 

-001- 03 NOTE 
-001- 04 NOTE 



0:32:20 2/06/81 **** 
CNRUTL W77D 

0(1767) H 13591 

XXX994 

TFAPCH2 'CSECT' 

***************** PATCH AREA BEGINS AT 001767 **************** 



01207J3 

0120763 15 001767 150400 120772 0120772 

0120765 15 001771 040006 

0120766 

0120766 15 001772 037000 017151 0001717 

0017151 

0017151 03 001717 103020 

0017152 

0017152 03 001720 037020 126205 CTAPH 

0017154 03 001722 011102 

0017155 03 001723 152322 

0017156 03 001724 047123 

0017157 03 001725 146116 

0017160 03 001726 162023 



-001- 07 XXX994 PATCHAREA 

08 BNCL IFS712 

09 I 

10 ENDP 
-001- 11 BL 
-001- 12 NOTE 
-001- 13 NOTE 



RO,N(TPNO)(RAO) 

It 13591 
XXX996 

************ (.AST PATCH ADDRESS USED IS 001773 *************** 
***** NUMBER OF PATCH WORDS USED IS 5 (DECIMAL) ******** 



-001- 16 XXX996 OWCONTINUE 

17 ZR R1 

18 EOW » 13591 

-001- 19 NOTE *************** THE LAST ADDRESS OVERWRITTEN IS 001717 ********* 

* 

TAPUCLNT,(T,R,N,S,L,N) 
OPENTCB 

5,TAPUCLNT 1,0 1,1 2,0 3,((6+1 )/2)+1 1,0 3,((6+1)/2)-1 
8,ASC T 8,ASC R 
8,ASC N 8,ASC~S 
8,ASC L 8,ASC~N 
FAILURE DETECTED BY 'IDLSTATE' 

N(LEN0)(RA0),1 tt TURN OFF REQUEST FLAG 

0(1727) H 13591 

************* THE FIRST ADDRESS OVERWRITTEN IS 001727 ********** 



23 




OPENE 


002- 24 




BSA 


001- 25 




VFD 


001- 26 




VFD 


001- 27 




VFD 


001- 28 




VFD 


29 


U OPEN 


FAILU 


30 




ZBS 


31 


TAPUTL 


OW 


001- 32 




NOTE 



0017161 03 001727 037000 120770 0001774 



35 TFAPCH2 BGNP 
-001- 36 BL 
-001- 37 NOTE 
-001- 38 NOTE 



0(1774) » 13591 

XXX1004 

TFAPCH2 'CSECT' 

***************** PATCH AREA BEGINS AT 001774 **************** 



0120770 

0120770 15 001774 137000 017315 0002063 

0120772 

0120772 15 001776 151063 

0120773 15 001777 050400 017275 0002043 
0120775 

0120775 15 002001 103020 

0120776 15 002002 040006 



-001- 41 XXX1004 PATCHAREA 



42 BL 

43 IFS712 

44 TBS 

45 BNCL 

46 OPN PACH 

47 IR 

48 L 

49 OPENE 



ADVSUBST_ 

N(LEN0)(RA0),3 
LOMASCOMPL 

R1 

R0,N(TPNO)(RA0) 

TAPUCLNT,(P,A,T,C,H) 



» TAPE UNIT NO. FOR EXPLICIT OPEN 



COMMON NONRESIDENT UTILITIES 
0:32:20 2/06/81 TRADE SECRET 
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A04 



TAPE UTILITY MULTISCAN FUNCTION 
TAPE UTILITY MONITOR ROUTINES 

012077? 15 002003 037020 126205 CTAPH 

0121001 15 002005 011102 

0121002 15 002006 050101 

0121003 15 002007 152303 

0121004 15 002010 044000 

01210C5 15 002011 155106 0121113 

0121006 15 002012 062063 

0121007 15 002013 061103 

0121010 15 002014 037040 010054 0000027 
0121012 

0121012 15 002016 056462 

0121013 

0121013 15 002017 103067 

0121014 15 002020 003260 

0121015 15 002021 031000 045267 CTAPH 

0121017 15 002023 053033 0121052 

0121020 

0121020 15 002024 103060 

0121021 15 002025 053004 0121025 

0121022 

0121022 15 002026 103060 

0121023 15 002027 003661 000014 
0121025 

0121025 15 002031 131000 045267 CTAPH 
0121027 15 002033 042253 

0121030 15 002034 006172 

0121031 15 002035 004172 

0121032 15 002036 006233 

0121033 15 002037 004625 

0121034 15 002040 042011 

0121035 15 002041 024000 

0121036 15 002042 030176 

0121037 15 002043 024001 

0121040 15 002044 030177 

0121041 15 002045 034560 010055 0000030 

0121043 15 002047 003645 177777 



0:32:20 2/06/81 **** 
CNRUTL W77D 



-002- 01 
-001- 02 
-001- 03 
-001- 04 
-001- 05 
06 
07 
08 
09 
10 
-001- 11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
-001- 42 



BSA OPENTCB 

VFD 5,TAPUCLNT 1,0 1,1 2,0 3,((5+1)/2)+1 1,0 3,«5+1)/2>-1 

VFD 8,ASC P 8,ASC A 

VFD 8,ASC T 8,ASC C 

VFD 8,ASC H 8,ASC_ 

BNC AB0RTTU1 

IBS N(LEN0)(RA0),3 

SBS N(LEN0)(RA0),4 

A1S TUUTCTL+N(SUBST) 

RETURN 2 

BTSAN 2 
LOD CON 
CONTINUE WITH OW (OH CROSSED BLK B0U5DRY). 



R3,7 

IOBNDX 

R0,I OBUF+I OBUFD,RA0 

RDNXTBLK 
OWF END 
$ ***** END OF FILE CHECK ***** 

R3 

IS_EOOWF 

FIRST OH. 



LN 
ZR 
LAL 
B 



ZR 
B 



K SETUP FOR TEST 



II SETUP FOR TEST 



it ENTRY POINT FOR 
1ST OH 

ZR 

LI 
IS EOOHF 

LAL 

LX 

LR 

SN 

LR 

AN 

LX 

TBN 

ICF 

TBN 

ICF 

STL 



R3 
IOBNDX, 12 



# SETUP FOR TEST 



RO,I OBUF+I OBUFD-RAO 

OW LEN, IOBNDX (RAO) 

R770W_LEN 

R7,6 

R9, IOBNDX 

R9,5 

R0,R9(RA0) 

R0,0 

R7,14 

R0,1 

R7,15 

R7,TUUTCTL+N(LEN0) 
U IT OW LEN=EOOWF BRANCH TO LD COMP, IF NOT PROCESS NEXT PATCH 

CI OW LEN,E0OWF 
TFAPCH2 OW 0(?051) 03E8OOO77 

NOTE ************* THE FIRST ADDRESS OVERWRITTEN IS 002051 ********** 



0121045 15 002051 037000 121513 0121513 



45 CPATCH7 BGNP 0(255) #3E800077 

-001- 46 BL XXX1011 

-001- 47 NOTE CPATCH7 'CSECT' 

-001- 48 NOTE ***************** PATCH AREA BEGINS AT 000255 **************** 
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B04 


TAPE UTILITY MULTISCAN FUNCTION 






0:32:20 2/06/81 **** 


TAPE UTILITY HONITOR ROUTINES 






CNRUTL W77D 


0121513 


-001- 


■ 01 XXX1011 PATCHAREA 


0121513 14 000255 155005 0121520 




02 BNC 


DO MORE 


0121514 14 000256 031000 010052 0000025 




03 LAL 


R07TUUTCTL,RA0 # POINT TO CONTROL BLOCK (RAO) 


0121516 14 000260 037000 017275 0002043 




04 BL 


LOMASCOMPL 


0121520 




05 DO MORE 




0121520 




06 ENDP 


#3E800077 


0121520 14 000262 137000 121047 0121047 


-001- 


07 BL 


XXX1013 




-001- 


08 NOTE 


************ LAST PATCH ADDRESS USED IS 000263 *************** 




-001- 


09 NOTE 


***** NUMBER OF PATCH WORDS USED IS 7 (DECIMAL) ******** 


0121047 


-001- 


12 XXX1013 OWCONTINUE 


0121047 




13 EOW 


ME800077 




-001- 


14 NOTE 


*************** THE LAST ADDRESS OVERWRITTEN IS 002052 ********* 

* 


0121047 15 002053 103140 




18 ZR 


OWBNDX 


0121050 15 002054 031000 045275 CTAPH 




19 LAL 


R0,I_08UF+I_0BUFD+6,RA0 


0121052 




20 RDNXTBLK 




0121052 15 002056 143013 




21 LAX 


RO, IOBNDX (RAO) 


0121053 15 002057 031400 010056 0000031 




22 LAL 


R0,BUFPATCH,RA1 


0121055 15 002061 043406 




23 LAX 


R0,OWBNDX(RA1) 


0121056 




24 








25 U R1 ■ OBUFLEN - IOBNDX 


0121056 15 002062 003421 001474 MASACS 




26 LI 


R1, OBUFLEN 


0121060 15 002064 005033 




27 SR 


R1, IOBNDX 


0121061 




28 








29 n IF OW LEN 


IS LESS THAN R1... LOD OW LEN INTO R1 


0121061 15 002065 006001 




30 LR 


R0,R1 


0121062 15 002066 005012 




31 SR 


RO,OW LEN 


0121063 15 002067 055002 0121065 




32 BNC 


LARGER 


0121064 15 002070 006032 




33 LR 


R1,0W_LEN 


0121065 




34 LARGER 




0121065 




35 








36 n R0=R1...0W 


_LEN=OW LEN-R0...IOBNDX*IOBNDX+R0 


0121065 15 002071 106001 




37 LR 


R0,R1 


0121066 15 002072 005240 




38 SR 


OW LEN,RO 


0121067 15 002073 001660 




39 AR 


IOBNDX, RO 


0121070 15 002074 014063 




40 TZ 


R3 # FIRST DATA TO BE MOVED? 


0121071 15 002075 055002 0121073 




41 BNC 


MOV ST 


0121072 15 002076 004012 




42 SN 


RO,S * DONT DO FIRST 6 WRDS 


0121073 




43 MOV ST 




0121073 15 002077 106140 




44 LR 


OWBNDX, RO 






45 n MOVE OW 


)ATA FROM THE I/OBUFFER TO THE PATCH BUFFER. 






46 n xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 






47 DINSERT NOTE 


' CALL MOVST 






48 DDELETE NOTE 


2 


W0121074 15 002100 037020 110772 CSYSUB 




49 BSA 


MOVST 
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CO* 


TAPE 


UTILITY MULTISCAN FUNCTION 








0:32:20 2/06/81 **** 


TAPE 


UTILITY MONITOR ROUTINES 








CNRUTL M77D 










01 


* xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 










02 


* IF OW LEN -« 


0... BRANCH TO NXT OWNO 


0121076 


15 002102 


114252 




03 


TZ 


OM LEN 


0121077 


15 002103 


054033 0121132 




04 


BC 


NXT_OHNO 


0121100 








05 






0121100 








06 
07 


A READ 
TFAPCH2 OM 


0(2104) (K3E79047? 








-001- 


08 

11 


NOTE 
RD1BLK 


************* THE FIRST ADDRESS OVERMRITTEN IS 002104 ********** 
TAPUCLNT,STALST 


0121100 


15 002104 


173047 


-002- 


12 


BSAI 


RXEQR It SUBROUTINE REQR IS IN PROGRAM CTAPH 


0121101 


15 002105 


010400 015771 0000537 


-001- 


13 


ADDR 


STALST,TAPUCLNT*E(7)+RD1BLK*E(3) 


0121103 








14 


TAKEOUT 


1 


0121103 


15 002107 


106000 


-001- 


15 


LR 


0,0 


0121104 








16 


EOW 


03E79O479 


. 






-001- 


17 


NOTE 


*************** THE LAST ADDRESS OVERMRITTEN IS 002107 ********* 

* 


0121104 


15 002110 056000 




21 


BPAX 


RO 


0121105 


15 002111 


153010 0121115 




22 


B 


A MAIT 


0121106 


15 002112 


153005 0121113 




23 
24 
25 


B 
DINSERT NOTE 
DDELETE NOTE 


A§0RTTU1 
' CALL MAIT 
2 


W0121107 


15 002113 


137020 002422 CBLM 




26 


BSA 


MAIT 


0121111 


15 002115 


122002 




27 


ZBN 


R0,2 


0121112 


15 002116 


053766 0121100 




28 


B 


A_READ 


0121113 








2? 


AB0RTTU1 




0121113 


15 002117 


137000 020215 0002763. 




30 


BL 


ABORTTU 


0121115 








31 
32 
33 


A MAIT 

dTnsert NOTE 
DELETE NOTE 


' STATST TAPUCLNT 
3 


M0121115 


15 002121 


137020 126350 CTAPH 




34 


BSA 


REQR 


0121117 


15 002123 


012300 




35 


DATA 


0(12300) 


0121120 


15 002124 


156000 




36 


BPAX 


RO 


0121121 


15 002125 


153006 0121127 




37 


B 


CHOOSE 


0121122 


15 002126 


153771 0121113 




38 
39 
40 


B 
DINSERT NOTE 
DDELETE NOTE 


AB0RTTU1 
' CALL MAIT 
2 


M0121123 


15 002127 


137020 002422 CBLM 




41 


BSA 


MAIT 


0121125 


15 002131 


122002 




42 


ZBN 


R0,2 


0121126 


15 002132 


053767 0121115 




43 


B 


A_MAIT 


0121127 








44 


CHOOSE 




0121127 


15 002133 


114252 




45 


TZ 


OM LEN 


0121130 


15 002134 


054017 0121147 




46 


BC 


LD~OMAS 


0121131 


15 002135 


053662 0121013 




47 


B 


LOD_CON 


0121132 








48 
4? 


n IF IOBNDX IS 


GREATER THAN OBUFLEN.. .BRANCH TO NEMBLK 
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D04 


TAPE UTILITY MULTISCAN FUNCTION 






0:32:20 2/06/81 **** 


TAPE UTILITY MONITOR ROUTINES 






CNRUTL W77D 


0121132* 








01 


NXT OWNO 




0121132 15 


002136 


106013 




02 


LR 


RO,IOBNDX 


0121133 15 


002137 


003400 


176304 MASACS 


03 


SI 


R0,OBUFLEN 


0121135 15 


002141 


054006 


0121143 


04 


BC 


NEWBLK 


0121136 15 


002142 


031000 


045267 CTAPH 


05 


LAL 


RO,I OBUF+I OBUFD,RA0 


0121140 15 


002144 


042033 




06 


LX 


R1,IOBNDX(RA0) 


0121141 








07 














08 


* IT R1=0 THEN [ 


0121141 15 


002145 


014021 




09 


TZ 


R1 


0121142 15 


002146 


055003 


0121145 


10 


BNC 


NXT_OW 


0121143 








11 






0121143 








12 


NEWBLK 




0121143 15 


002147 


103260 




13 


ZR 


IOBNDX 


0121144 15 


002150 


053734 


0121100 


14 


B 


A_READ 


0121145 








15 
16 
17 


NXT OW 
DINSERT NOTE 
DDELETE NOTE 


' CALL WAIT 
2 


W0121145 15 


002151 


137020 


18 


BSA 


WAIT 


0121147 








19 






0121147 








20 


LD OMAS 












21 


# START OF ROUTINE TO MOVE DATA FROM THE PATCH BUFFER 










22 


* TO THE OMAS 


LOCATION TO BE OVERWRITTEN. 


0121147 15 


002153 


103140 




23 


ZR 


OWBNDX 


0121150 15 


002154 


031400 


010056 0000031 


24 


LAL 


R0,BUFPATCH,RA1 


0121152 15 


002156 


031100 


010055 0000030 


25 


LAL 


R4 ,TUUTCTL+N (LENO) ,RA0 


0121154 15 


002160 


024117 




26 


TBN 


R4,15 tt RMV BIT 


0121155 15 


002161 


054056 


0121233 


27 


BC 


WRCOMP 


. 0121156 15 


002162 


024116 




28 


TBN 


R4,14 # ACT BIT 


0121157 15 


002163 


055054 


0121233 


29 


BNC 


WRCOMP 


0121160 15 


002164 


003502 


037777 


30 


NI 


R4,0(37777) 


0121162 15 


002166 


053015 


0121177 


31 


B 


FST_PASS 


0121163 








32 
33 


NXTORGBLK 

n PROCESS THE 


NEXT ORG BLK IN TURN. 


0121163 15 


002167 


131400 


010056 0000031 


34 


LAL 


R0,BUFPATCH,RA1 


0121165 15 


002171 


031100 


010055 0000030 


35 


LAL 


R4,TUUTCTL+N (LENO), RAO 


0121167 15 


002173 


003502 


037777 


36 


NI 


R4, 0(37777) 


0121171 15 


002175 


042526 




37 


LX 


LENOB, OWBNDX (RAD 


0121172 15 


002176 


006005 




38 


LR 


R0,LENOB 


0121173 15 


002177 


010417 




39 


RLN 


R0,1 


0121174 15 


002200 


001405 




40 


AR 


RO, LENOB 


0121175 15 


002201 


004403 




41 


AN 


R0,3 


0121176 15 


002202 


001540 


— — ._ 


42 


AR 


OWBNDX, RO 


0121177 








43 


FST PASS 












44 


§ BEGIN PROCESS OF THE 1ST ORG BLK OF THE OVERWRITE. 


0121177 15 


002203 


143526 




45 


LAX 


LENOB, OWBNDX (RAD 


0121200 15 


002204 


004137 




46 


SN 


LENOB, 1 (H BX NO. OF LOOPS MINUS 1 


0121201 








47 
48 


U IF OWBPTR IS 


GREATER THAN R4... BRANCH TO WRCOMP 


0121201 15 


002205 


006006 




49 


LR 


RO, OWBNDX 
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TAPE 


UTILITT MULTISCAH 


FUNCTION 










0:32:20 2/06/81 **** 


TAPE 


UTILITT MONITOR ROUTINES 










CNRUTL 


W77D 


0121202 


15 


002206 005004 






01 




SR 


10/M 




0121203 


15 


002207 054030 


0121233 




02 




BC 


WRC^r 




0121204 










03 








' . 1 












04 


# IT NOf 


TRY NXTORGBLK 


■';. 


0121204 


15 


002210 040701 






05 




L 


RA0,N(0BLKADR)(RA1) 




0121205 


15 


002211 040722 






06 




L 


R AO+1 ,N (OBLK ADR ) +1 (RA1 ) 




0121206 


15 


002212 040401 






07 




L 


R0,N(0BLKSEG)(RA1) 




0121207 


15 


002213 003402 


177760 




08 




NI 


RO,M(OBLKSEG) 




0121211 


15 


002215 055752 


0121163 




09 




BNC 


NXTORGBLK 




0121212 










10 


LD OS 


LP 


■ 














11 


f 


" LOAD OMAS LOOP 




0121212 


15 


002216 171420 






12 




HA 






0121213 


15 


002217 007316 






13 




EXR 


RA0,RA1 




0121214 


15 


002220 007337 


______ 




14 




EXR 


RA0+1,RA1+1 




0121215 


15 


002221 040004 


■■■«■■ 




15 




L 


RO,N(NEWDH)(RA0) 




0121216 


15 


002222 040023 






16 




L 


R1,N(NEWDLXRA0) 




0121217 










17 




CALL 


WOPS U WRITE DATA TO OMAS 




0121217 


15 


002223 037021 


014361 MASACS 


-001- 


18 




BSA 


WOPS 




0121221 










19 




CALL 


STOPPSAU n STOP MAS AUDIT SO CHANGES WONT BE 


















CORRECTED 




0121221 


15 


002225 137020 


003674 CBLM 


-001- 


21 




BSA 


STOPPSAU 




0121223 


15 


002227 171400 


_ _ 




22 




6A 






0121224 


15 


002230 041001 


______ 




23 




LA 


R0,1 (RAO) 




0121225 


15 


002231 041403 






24 




LA 


R0,3(RA1> 




0121226 


15 


002232 036120 


121212 0121212 




25 




BX 


LENOB,LD OS LP 














26 


DINSERT NOTE 


' CALL W/flT 














27 


DDELETE NOTE 


2 




W0121230 


15 


002234 037020 


002422 CBLM 




28 




BSA 


WAIT 




0121232 


15 


002236 153731 


0121163 




29 




B 


NXTORGBLK 




0121233 






' 




30 
31 
32 


WRCOMP 

DINSERT NOTE 
DDELETE NOTE 


' CALL WAIT 
2 




W0121233 


15 


002237 137020 


002422 CBLM 




33 




BSA 


WAIT 




0121235 


15 


002241 153563 


0121020 




34 




B 


OWF_END 




0121235 










35 










0121235 










36 










0121235 










37 




ENDP 


NR U 13591 












-001- 


38 




NOTE 


************ LAST PATCH ADDRESS USED IS 002241 *************** 










-001- 


39 




NOTE 


***** NUMBER OF PATCH WORDS USED IS 166 (DECIMAL) 


******** 


0017163 










42 




EOW 


U 13591 












-001- 


43 




NOTE 


• *************** THE LAST ADDRESS OVERWRITTEN IS 001730 ********* 

* 

« 
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m. 



TAPE UTILITY MULTISCAN FUNCTION 
TAPE UTILITY MONITOR ROUTINES 



0:32:20 2/06/81 **** 
CNRUTL W77D 



04 TAPUTL OW 0(1731) * 13591 

-001- 05 NOTE ************* THE FIRST ADDRESS OVERWRITTEN IS 001731 ********** 



0017163 

0017163 03 001731 137000 12075* 0001760 

0120754 



0120754 15 001760 151103 

0120755 15 001761 050000 121022 0121022 
0120757 15 001763 031400 045271 LAYOUT 
0120761 

0120761 15 001765 037000 017165 0001733 



-001- 
-001- 
-001- 



-001- 



08 OISECT 

09 TFAPCH2 BGNP 

10 BL 

11 NOTE 

12 NOTE 



0(1760) fl 13591 

XXX1032 

TFAPCH2 'CSECT' 

***************** PATCH AREA BEGINS AT 001760 **************** 



-001- 
-001- 
-001- 



15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 



XXX1032 PATCHAREA 

DDELETE NOTE 1 

n A BLOCK HAS BEEN BROUGHT INTO THE I/O BUFFER AND HAY REQUIRE UNPACKING 

» DEPENDING UPON THE APPLICATION STORE WIDTH. A SPECIAL APPLICATION ROUTINE 

# IS USED TO UNPACK THE BLOCK RIGHT IN THE I/O BUFFER IN PREPARATION FOR 

* STORAGE IN THE OFF-LINE MACHINE. 



STORAGE IN 
TBS 
BCL 
LAL . 
ENDP 
BL 

NOTE 
NOTE 



U PATCH FILE ? 



N(LEN0)(RA0),4 

1ST OW 

RO,I 0BUF+3,RA1 

» 13591 
XXX1034 

************ LAST PATCH ADDRESS USED IS 001766 *************** 
***** NUMBER OF PATCH WORDS USED IS 7 (DECIMAL) ******** 



0017165 

0017165 03 001733 131000 045271 LAYOUT 

0017167 



-001- 30 XXX1034 OWCONTINUE 

31 LAL R0,I OBUF+3,RA0 

32 EOW H 13591 

-001- 33 NOTE *************** THE LAST ADDRESS OVERWRITTEN IS 001734 ********* 

* 



0017167 03 001735 030400 045267 LAYOUT 
0017171 03 001737 003402 177760 

0017173 03 001741 010404 

0017174 

0017174 03 001742 037021 014333 MASACS 
0017176 03 001744 153502 0016700 



-001- 



37 
38 
39 
40 
41 
42 



LL 


R0,I_0BUF+1 


NI 


R0,-MSK(4) 


RRN 


R0,4 


CALL 


UNPKWRDS 


BSA 


UNPKWRDS 


B 


ADRETN 



# PREPARE LOGICAL LENGTH FOR UNPACK ROUTINE. 
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■ 






604 


TAPE 


UTILITY MULTISCAN FUNCTION 






0:32:20 2/06/81 **** 


TAPE 


UTILITY MONITOR ROUTINES 






CNRUTL W77D 


0017177 


> 






01 MOVEOVER 












02 n THE BLOCK 


HAS BEEN UNPACKED. NEXT THE DATA MUST BE MOVED TO THE OTHER 










03 n PROCESSOR. 


A MAXIMUM OF 297 WORDS WILL BE MOVED AT ONE TIME. RE-ENTRY 










04 # TO THIS ROUTINE IS REQUIRED UNTIL ALL OF THE DATA IS MOVED. 


0017177 


03 


001745 131400 045267 LAYOUT 




05 LAL 


RO,I 0BUF+1,RA1 


0017201 


03 


001747 003441 000451 




06 LI 


R2,2?7 « PREPARE FOR MOVE AND CALCULATION OF 
REMAINING WORDS. 


0017203 


03 


001751 003402 177760 




08 NI 


R0,-+tSK(4> 


0017205 


03 


001753 010404 




09 RRN 


R0,4 


0017206 


03 


001754 006060 




10 LR 


R3,R0 


0017207 


03 


001755 005002 




11 SR 


R0,R2 # CHECK IF MORE THAN 297 WORDS LEFT. 


0017210 


03 


001756 054003 0017213 




12 BC 


M0R297 


0017211 


03 


001757 006043 




13 LR 


R2,R3 


0017212 


03 


001760 003000 




14 ZR 


RO 


0017213 








15 H0R297 




0017213 


03 


001761 106060 




16 LR 


R3,R0 


0017214 


03 


001762 040700 




17 L 


RA0,0(RA1) M SET W RAO FOR MOVE 


0017215 


03 


001763 040721 




18 L 


RA0+1,1(RA1) 


0017216 


03 


001764 041401 




19 LA 


R0,1(RA1) # SET UP SOURCE ADDRESS FOR MOVE. " 










21 » RA1 CONTAINS SOURCE OF MOVE AND RAO CONTAINS DESTINATION 


0017217 








22 SNL 


RA0,1 


0017217 


03 


001765 004337 


-001- 


23 SN 


RAO+1,1 


0017220 


03 


001766 054002 0017222 


-001- 


24 BC 


IFS1039 


0017221 


03 


001767 004317 


-001- 


25 SN 


RA0,1 


0017222 


03 


001770 153011 0017233 




26 B 


SUB1 


0017223 








27 DOTHEM 




.0017223 








28 SBIN 


(K PREVENT INTERRUPT INTERFERENCE WITH SDR1 
(IF USED) 


0017223 


03 


001771 113002 


-001- 


30 HIS 


2 


0017224 


03 


001772 105722 


-001- 


31 DATA 


35794 


0017225 


03 


001773 041401 




32 LA 


R0,1(RA1) 


0017226 








33 STOS 


I(RAO) # DO OFF-LINE STORE 


E0017226 


03 


001774 000401 


-001- 


34 MSTF 


1 (RAO) 


0017227 


03 


001775 136100 037000 


-001- 


35 DATA 

36 TAPUTL OH 


B (101 11 10001000000) 
0(1776) # 12447 








-001- 


37 NOTE 


************* THE FIRST ADDRESS OVERWRITTEN IS 001776 ********** 

■ 










40 TAPUTL BGNP 


0(3071) # 12447 


0017230 


001776 037000 020323 0020323 


-001- 


41 BL 


XXX1044 








-001- 


42 NOTE 


TAPUTL 'CSECT* 








-001- 


43 NOTE 

■ 


***************** PATCH AREA BEGINS AT 003071 **************** 


COMMON 
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TAPE UTILITY MULTISCAN FUNCTION 

TAPE UTILITY MONITOR ROUTINES 

0020323 
0020323 

0020323 03 003071 113002 

0020324 03 003072 107322 

0020325 03 003073 004721 

0020326 03 003074 055002 0020330 

0020327 03 003075 004701 

0020330 

0020330 

0020330 03 003076 137000 017232 0017232 



JSL 



-001- 01 XXX1044 PATCHAREA 



0:32:20 2/06/81 **** 



CNRUTL 



W770 



02 


ZBIN 




001- 03 


MIS 


2 


001- 04 


DATA 


36562 


05 


AN 


R13,1 


06 


BNC 


SUB1 TC 


07 


AN 


R12,T 



08 SUB1_TC 
0? ENDP 
-001- 10 BL 
-001- 11 NOTE 
-001- 12 NOTE 



* INCREMENT ADDRESS 



* 12447 
XXX1047 

************ LAST PATCH ADDRESS USED IS 003077 *************** 
***** NUMBER OF PATCH WORDS USED IS 7 (DECIMAL) ******** 



0017232 

0017232 

0017232 03 002000 106000 

0017233 



0017233 

0017233 03 002001 136040 017223 0017223 

0017235 

0017235 03 002003 073025 

0017236 03 002004 114063 

0017237 03 002005 054441 0016700 

0017240 03 002006 003441 000451 

0017242 03 002010 006003 

0017243 03 002011 005002 

0017244 03 002012 054003 0017247 

0017245 03 002013 006043 

0017246 03 002014 003000 

0017247 

0017247 03 002015 106060 

0017250 03 002016 053763 0017233 



-001- 15 XXX1047 OWCONTINUE 

16 TAKEOUT 1 
-001- 17 LR 0,0 

18 EOW n 12447 

-001- 19 NOTE *************** THE LAST ADDRESS OVERWRITTEN IS 002000 ********* 

* 



M TAKE REAL TIME BREAK SINCE MOVE IS TIME 

CONSUMING 
ft SUBROUTINE WAIT IS IN PROGRAM CBLM 



23 


SUB1 






24 




BX 


R2,D0THEM 


25 




CALL 


WAIT 


001- 27 




BSAI 


WXAIT 


28 




TZ 


R3 


29 




BC 


ADRETN 


30 




LI 


R2,297 


31 




LR 


R0,R3 


32 




SR 


R0,R2 


33 




BC 


MORAGN 


34 




LR 


R2,R3 


35 




ZR 


RO 


36 


HORAGN 






37 




LR 


R3,R0 


38 




B 


SUB1 



« NEXT SUBSTATE 



0017251 



0017251 03 002017 130400 045266 LAYOUT 
0017253 03 002021 030420 043326 CTSD 
0017255 03 002023 017001 017777 

0017257 03 002025 054004 0017263 

0017260 03 002026 003001 



42 FINECH 

43 ft CHECK IF THIS FILE IS DONE. MUST CHECK THE BLOCK ADDRESS AGAINST 

44 fl THE DIRECTORY INFORMATION STORED IN THE KB. 

45 LL RO,I OBUF 

46 LL R1,TC*BADR+N(LASTBLK) 

47 CRM R0,R1,M(BLKADR>+t1(TRCK> If HAS EOF BEEN REACHED 

48 BC NEXTFILE If YES 

49 LN R0,1 
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BOS 


TAPE UTILITY MULTISCAN FUNCTION 








0:32:20 2/06/81 **** 


TAPE UTILITY MONITOR ROUTINES 








CNRUTL W77D 


0017261 '03 002027 044002 




01 


ST 


RO,N(SUBST)(RAO) # SET UP TO READ NEXT BLOCK 


0017262 




02 


RETURN 


2 


0017262 03 002030 056462 

■ 


-001- 


03 


BTSAN 


2 


0017263 




07 NEXTFILE 


- 






08 


CLOSE 


TAPUCLNT 


0017263 03 002031 173047 


-002- 


09 


BSAI 


RXEQR U SUBROUTINE REQR IS IN PROGRAM CTAPH 


0017264 03 002032 011300 


-001- 


10 


VFD 


5, TAPUCLNT 4, CLOSE 1,1 1,0 5,0 


0017265 03 002033 156000 




11 


BPAX 


RO 


0017266 03 002034 153004 0017272 




12 


B 


CCONT 


0017267 03 002035 153624 0017113 




13 


B 


ABORTTU_ (K ABORT CODE 


0017270 




14 


CALL 


WAIT 


0017270 03 002036 173025 


-001- 


15 


BSAI 


WXAIT U SUBROUTINE WAIT IS IN PROGRAM CBLM 


0017271 03 002037 153772 0017263 




16 


B 


NEXTFILE 


0017272 




17 CCONT 










18 TAPUTL 


OW 


0(2040) ME790260 




-001- 


19 


NOTE 


************* THE FIRST ADDRESS OVERWRITTEN IS 002040 ********** 






22 CPATCH7 BGNP 


0(217) #3E790260 


0017272 03 002040 137000 121455 0000217 


-001- 


23 


BL 


XXX1059 




-001- 


24 


NOTE 


CPATCH7 'CSECT' 




-001- 


25 


NOTE 


***************** PATCH AREA BEGINS AT 000217 **************** 


0121455 


-001- 


28 XXX1059 PATCHAREA 


' 0121455 14 000217 103000 




29 


ZR 


RO 


0121456 14 000220 044002 




30 


ST 


RO,N(SUBST)(RAO) # START OVER FOR THE NEW FILE 


0121457 




31 


CALL 


TEMPINH 


0121457 14 000221 037020 147320 BLHNA 


-001- 


32 


BSA 


TEMPINH" 


0121461 




33 


ENDP 


(K3E790260 


0121461 14 000223 137000 017274 0002042 


-001- 


34 


BL 


XXX1062 




-001- 


35 


NOTE 


************ LAST PATCH ADDRESS USED IS 000224 *************** 




-001- 


36 


NOTE 


***** NUMBER OF PATCH WORDS USED IS 6 (DECIMAL) ******** 


0017274 


-001- 


39 XXX1062 OWCONTINUE 


0017274 




40 


EOM 


(K3E790260 


. 


-001- 


41 


NOTE 


*************** THE LAST ADDRESS OVERWRITTEN IS 002041 ********* 


0017274 




45 


RETURN 


2 


0017274 03 002042 156462 


-001- 


46 


BTSAN 


2 
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C05 


TAPE UTILITY MULTISCAU 


FUNCTION 








0:32:20 2/06/81 **** 


TAPE UTILITY MONITOR ROUTINES 








CNRUTL W77D 


0017275 

0017275 03 002043 103000 

0017276 03 002044 044000 
0017277 






01 
02 
03 
04 


LOMASCOMPL 

ZR RO 

ST ro,n<utctlxrao> n FOR ABORTTU BRANCH 

PRINT PACTION=A,FMT«(WRD(L,0,D),WRD<0,M,A,S>,WRD(C,0,M,P,L>) 


0017277 03 002045 073053 

0017300 03 002046 101200 

0017301 03 002047 021040 

0017302 03 002050 021042 

0017303 03 002051 014024 

0017304 03 002052 000177 

0017305 03 002053 000302 


TTYTBL 

TTYTBL 

TTYTBL 


-001- 
-001- 
-002- 
-002- 
-002- 
-002- 
-002- 
-002- 
-002- 


06 
07 
08 
09 
10 
11 
12 
13 
14 


« MESSAGE 

tt A mm 

BSAI 

VFD 

VFD 

VFD 

VFD 

VFD 

VFD 


PROTOTYPE 

LOD OMAS COMPL 

P*MRY II SUBROUTINE PMRY IS IN PROGRAM TTYAPP 

1,1 2,0 1,0 3,1 1,0 1,1 1,0 2,0 1,0 3,0 

4,TTY0 4,TTY0 4,TTY0 4,TTY0 WRD 

4,TTY0 4,TTY0~ 4,TTY0~ 4,TTY0~ 

5,3 11,LX0D 

5, 11,0XMAS 

5, 11,CX0MPL 


0017306 03 002054 151043 
0017307 

0017307 03 002055 055003 
0017310 03 002056 037021 
0017312 

0017312 03 002060 153601 


0017312 

016233 MASACS 

0017113 


-001- 

-002- 
-003- 
-002- 


15 

17 
18 
19 
20 
21 
22 


NOTE 

TBS 
IF 

IFS1081 
B 


THE VARIABLE PORTION OF THE OUTPUT MESSAGE TO BE PRINTED IS 
CONTAINED IN GENERAL REGISTERS 

N(LEN0)(RA0),2 if WAS TRNSLN LOADED? 

CF THEN CALL SETRCBAP 
BNC IFS1081 
BSA SETRCBAP 

ABORTTU, 


0017313 

0017313 03 002061 137000 

0017315 

0017315 03 002063 137000 


015762 0015762 
020077 0020077 




24 
25 
26 
27 


RD1M0N 

~BL 
ADVSUBST 
BL 


RD1M0N 
ADVSUBST 


■ 
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005 



TAPE UTILITY MULTISCAN FUNCTION 
TAPE UTILITY MONITOR ROUTINES 
0017317 



0017317 03 002065 131400 043317 CTSO 

0017321 03 002067 056001 

0017322 03 002070 153013 0017335 

0017323 03 002071 153131 0017454 



0:32:20 2/06/81 **** 
CNRUTL W77D 

01 COPYMON 

02 n THIS IS THE TASK DISPENSER FOR THE TAPE TO TAPE TRACK COPY ROUTINE 



-001- 0? 



04 LAL 

05 BPAX 

06 B 

07 B 

08 TAPUTL OW 



R0,TCBADR,RA1 

R1 

COPYSZ 

IDLSTATE 

0(2072) 



MOTH 



# 12437 



************* THE FIRST ADDRESS OVERWRITTEN IS 002072 ********** 



0017324 03 002072 153054 0017400 

0017325 03 002073 153127 0017454 

0017326 03 002074 153015 0017343 

0017327 03 002075 153021 0017350 

0017330 03 002076 153124 0017454 

0017331 03 002077 153054 0017405 

0017332 03 002100 153122 0017454 

0017333 03 002101 153010 0017343 

0017334 03 002102 153057 — 0017413 

0017335 



-001- 



12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 



B READSTD 

B IDLSTATE„ 

B CLOTPU 

8 POSCOPY 

B IDLSTATE 

B WRITCOPY" 

B IDLSTATE 

B CLOTPU 

B LSTCOPYCK 

EOW § 12437 

NOTE *************** THE LAST ADDRESS OVERWRITTEN IS 002102 ********* 
* 



0017335 



0017335 03 002103 140006 

0017336 03 002104 003402 000003 

0017340 03 002106 040021 

0017341 03 002107 037000 016674 0016674 



29 COPYSZ 

30 * THIS SUBSTATE WILL SET UP THE CONDITIONS REWIRED TO SEIZE CONTROL OF 

31 n THE TAPE SYSTEM. 



33 L R0,N(TPNO)(RAO) 

3* NI RO,M(TAPNO) 

35 L R1,N(MBKN0)(RA0) 

37 BL NOOVERIDE 



SET UP THE BLOCK AND TAPE NUMBER FOR 
SEIZURE. 



0017343 



41 POSSTD 

42 » THIS SUSBSTATE POSITIONS STANDARD TAPE FOR NEXT READ 



44 TAPUTL OW 
-001- 45 NOTE 



0(2111) U 12437 

************* THE FIRST ADDRESS OVERWRITTEN IS 002111 ********** 



COMMON NONRESIDENT UTILITIES 

0:32:20 2/06/81 TRADE SECRET - SEE TRADE SECRET RESTRICTIVE NOTICE ON COVER SHEET CNRUTL 



PR-1C954-50 
ISSUE 05 PAGE 



92 



TAPE UTILITY MULTISCAN FUNCTION 
TAPE UTILITY MONITOR ROUTINES 
0017343 ' 

0017343 03 002111 137040 010054 0010054 

0017345 03 002113 053215 0017562 

0017346 

0017346 03 002114 006000 

0017347 03 002115 006000 

0017350 



J05. 





01 


CLOTPU 






02 


t 


THIS 




03 




A1S 




04 




1 




05 




TAKEOUT 


-001- 


06 




LR 


-001- 


07 




LR 




OS 




EOW 


-001- 


09 




NOTE 



0:32:20 2/06/81 **** 



CNRUTL 



W77D 



SUBSTATE CLOSES THE TAPE CLIENT 

TUCOPYCTL+NCSUBST) 

CTAPEU 

2 

0,0 

0,0 

n 12437 
*************** THE LAST ADDRESS OVERWRITTEN IS 002115 ********* 
* 



0017350 



0017350 03 002116 140023 

0017351 03 002117 040006 

0017352 03 002120 034420 043463 CTSD 

0017354 03 002122 010402 

0017355 

0017355 03 002123 103402 000003 
0017357 

0017357 03 002125 037020 127423 CTAPH 



16 POSCOPY 

17 # THIS SUBSTATE WILL CHANGE THE TU NUMBER IN THE TCB AND POSITION COPY 

18 U UNIT TO NEXT BLOCK TO BE WRITTEN 



-001- 



20 

21 

22 

23 

24 REPOS 

25 

26 

27 



L 
L 

STL 
RRN 

NI 

CALL 

BSA 



-001- 29 



28 TAPUTL OW 



R1,N(CBKN0)(RA0) 
RO,N(TPNO)(RAO) 
R1,MSFPR06 
RO,W(TAPNO) 



» R1 HAS DATA FOR DISPLAY 



NOTE 



R0,M(TAPNO) 

JAMTU 

JAMTU 

0(2127) H 12437 

************* THE FIRST ADDRESS OVERWRITTEN IS 002127 ********** 



0017361 03 002127 137000 016674 0016674 

0017363 

0017363 03 

0017364 

0017365 

0017366 03 

0017367 03 
0017370 03 
0017371 

0017372 03 

0017373 03 
0017374 



03 
03 



002131 006000 

002132 006000 

002133 006000 

002134 006000 

002135 006000 

002136 006000 

002137 006000 

002140 006000 

002141 006000 



32 BL NOOVERIDE 

33 TAKEOUT 9 
-001- 34 LR 0,0 
-001- 35 LR 0,0 
-001- 36 LR 0,0 
-001- 37 LR 0,0 
-001- 38 LR 0,0 
-001- 39 LR 0,0 
-001- 40 LR 0,0 
-001- 41 LR 0,0 
-001- 42 LR 0,0 

43 EOW M 12437 

-001- 44 NOTE *************** THE LAST ADDRESS OVERWRITTEN IS 002141 ********* 

* 
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F05 



TAPE UTILITY MULTISCAN FUNCTION 
TAPE UTILITT MONITOR ROUTINES 



01 TAPUTL OH 
-001- 02 NOTE 



0:32:20 2/06/81 **** 

- 

CNRUTL W77D 

0(2142) # 12448 

************* THE FIRST ADDRESS OVERWRITTEN IS 002142 ********** 



0017374 

0017374 03 002142 006000 

0017375 03 002143 006000 

0017376 03 002144 006000 

0017377 03 002145 006000 
0017400 



05 


TAKEOUT 4 


001- 06 


LR 0,0 


001- 07 


LR 0,0 


001- 08 


LR 0,0 


001- 09 


LR 0,0 


10 


EOW 


001- 11 


NOTE *** 



* 12448 
*************** THE LAST ADDRESS OVERWRITTEN IS 002145 ********* 

* 



0017400 



0017400 03 002146 140006 

0017401 

0017401 03 002147 037020 127423 CTAPH 
0017403 03 002151 137000 015762 0015762 



18 READSTD 

19 * THIS SUBSTATE WILL READ MASTER TAPE 

21 L R0,N(TPN0)(RA0) 

22 CALL JAMTU 
-001- 23 BSA JAMTU 

24 BL RD1M0N 



0017405 



0017405 03 002153 140006 ^- 

0017406 03 002154 010402 

0017407 

0017407 03 002155 037020 127423 CTAPH 
0017411 03 002157 137000 016620 0016620 



28 WRITCOPT 

29 # THIS SUBSTATE WILL SET UP THE REQUIRED CONTROL TO WRITE THE MASTER 

30 # TAPE BLOCK OVER TO THE COPY TAPE. 





32 


L 


RO,N(TPNO)(RAO) 




33 


RRN 


R0,W(TAPNO) 




34 


CALL 


JAMTU 


001- 


35 


BSA 


JAMTU 




36 


BL 


BGNWRIT 



0017413 



0017413 03 002161 130420 045266 LAYOUT 

0017415 03 002163 040050 

0017416 03 002164 017022 003777 

0017420 03 002166 055015 0017435 

0017421 03 002167 040011 

0017422 03 002170 004017 

0017423 03 002171 044011 



40 LSTCOPYCK 

41 It THIS SUBSTATE WILL CHECK IF LAST TRACK AND BLOCK HAS BEEN COPIED. 



# WAS LAST BLOCK NUMBER COPIED ? 
U NUMBER OF TRACKS TO COPY 



43 


LL 


,R1,I OBUF 


44 


L 


R2,NTLASBLK)(RA0) 


45 


CRM 


R1,R2,M(BLKADR) 


46 


BNC 


NXBLK 


47 


L 


R0,N(AUX2)(RA0) 


48 


SN 


R0,1 


49 


ST 


R0,N(AUX2XRA0> 
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1 


► • • 




• • • i 

605 


1 




TAPE UTILITY MULTISCAN FUNCTION 




0:32:20 2/06/81 **** 






TAPE UTILITY MONITOR ROUTINES 




CNRUTL W77D 




. 


0017424 03 002172 014000 

0017425 03 002173 054017 0017444 

0017426 03 002174 040021 

0017427 03 002175 0u^420 004000 
0017431 03 002177 003422 014000 

0017433 03 002201 044021 

0017434 03 002202 044023 

0017435 

0017435 03 002203 137040 010053 0010053 
0017437 03 002205 037040 010055 0010055 


-001- 


01 TZ RO 

02 BC COPYCMP 

03 L R1,N(MBKN0)(RA0> 

04 AI R1,ES(TRCK> # ADD 1 TO TRACK NUMBER 

05 NI R1,M(TRCK> * KEEP TRACK NUMBER ONLY 

06 ST R1,N(MBKNO)(RA0) H STORE NEXT TRACK TO COPY 

07 ST R1,N(CBKN0)(RA0> » STORE NEXT TRACK TO COPY 

08 NXBLK 

09 A1S TUCOPYCTL+N(MBKNO) # NEXT BLOCK TO COPY 

10 A1S TUCOPYCTL+NCCBKNO) n NEXT TRACK TO COPY 

11 TAPUTL OH 0(2207) H 12437 

12 NOTE ************* THE FIRST ADDRESS OVERWRITTEN IS 002207 ********** 






0017441 03 002207 003000 

0017442 


-001- 


15 ZR RO 

16 EOW n 12437 

17 NOTE *************** THE LAST ADDRESS OVERWRITTEN IS 002207 ********* 

* 






0017442 03 002210 044002 

0017443 

0017443 03 002211 056462 

0017444 
0017444 


-001- 


21 ST RO,N(SUBST)(RAO) H NEXT TIME THROUGH TASK DISP WILL BE AT 

POSSTD 

23 RETURN 2 

24 BTSAN 2 

26 COPYCMP 

27 PRINT PACTIONS, FMT(WRD(C,0,P,Y),WRD<T,A,P,E>,WRD<C,0,M,P,L)> 




■ 


0017444 03 002212 173053 

0017445 03 002213 101200 

0017446 03 002214 021040 

0017447 03 002215 021042 

0017450 03 002216 014013 TTYTBL 

0017451 03 002217 000242 TTYTBL 

0017452 03 002220 000302 TTYTBL 

0017453 03 002221 153003 0017456 


-001- 
-001- 
-002- 
-002- 
-002- 
-002- 
-002- 
-002- 
-002- 
-001- 


29 U MESSAGE PROTOTYPE 

30 * A Mia COPY TAPE COMPL 

31 BSAI PXMRY * SUBROUTINE PMRY IS IN PROGRAM TTYAPP 

32 VFD 1,1 2,0 1,0 3,1 1,0 1,1 1,0 2,0 1,0 3,0 

33 VFD 4,TTY0_ 4,TTY0 4,TTY0 4,TTY0 WRD 

34 VFD 4,TTY0_ 4,TTY0 4,TTY0 4,TTY0~ 

35 VFD 5,3 11,CX0PY 

36 VFD 5, 11,TXAPE 

37 VFD 5, 11,CX0MPL 

38 NOTE THE VARIABLE PORTION OF THE OUTPUT MESSAGE TO BE PRINTED IS 

CONTAINED IN GENERAL REGISTERS 
40 B ABORTTU 
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TAPE UTILITY MULTISCAN FUNCTION 
TAPE UTILITY MONITOR ROUTINES 



001745* 

0017454 

0017454 03 002222 137000 016703 0016703 

0017456 

0017456 03 002224 137000 020215 0020215 



J06. 



01 K TRANSFER VECTORS 
02 

03 IDLSTATE 

04 BL IDLSTATE 

05 ABORTTU 

06 BL ABORTTU 



0:32:20 2/06/81 **** 
CNRUTL H77D 



■ 
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TAPE UTILITr MULTISCAN f UNCTION 
TAPE UTILITY MONITOR ROUTINES 
0017460 



0017460 03 002226 156001 

0017461 03 002227 153017 0017500 

0017462 03 002230 153772 0017454 

0017463 03 002231 153043 0017526 

0017464 03 002232 153770 0017454 

0017465 03 002233 153050 0017535 

0017466 03 002234 153027 0017515 

0017467 03 002235 153765 0017454 

0017470 03 002236 153036 0017526 

0017471 03 002237 153763 0017454 

0017472 03 002240 153055 0017547 

0017473 03 002241 153072 0017565 

0017474 03 C02242 153760 0017454 

0017475 03 002243 153102 0017577 

0017476 03 002244 153756 0017454 

0017477 03 002245 153147 0017646 



• • 



ML 



01 COPYFILEMON 

02 K TASK DISPENSOR FOR THE FILE COPY ROUTINE 

04 
05 
06 

07 
08 
09 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 



0:32:20 2/06/81 **** 
CNRUTL W77D 



BPAX 


R1 


B 


SEZM 


B 


IDLSTATE 


B 


READFM 


B 


IDLSTATE 


B 


STMADR 


B 


SEZC 


B 


IDLSTATE 


B 


READFC 


B 


IDLSTATE 


B 


COMPADR 


B 


OPENMAST 


B 


IDLSTATE 


B 


COPYMAC 


B 


IDLSTATE 


B 


COPFIN 



0017500 



0017500 03 002246 103000 

0017501 03 002247 003421 004000 MASACS 
0017503 03 002251 003423 000017 MASACS 

0017505 03 002253 044021 

0017506 03 002254 037020 126205 CTAPH 

0017510 03 002256 010030 

0017511 03 002257 155745 0017456 

0017512 03 002260 037040 010054 0010054 
0017514 

0017514 03 002262 056462 



23 SEZM 

24 U THIS SUBSTATE WILL SEIZE THE MASTER TAPE UNIT 





26 


ZR 




27 


LI 




28 


01 




29 


ST 




30 


SEIZE 


002- 


31 


BSA 


001- 


32 


VFD 




33 


BNC 




34 


A1S 




35 


RETURN 


001- 


36 


BTSAN 



38 TAPUTL 
-001- 39 



ow 

NOTE 



#TRACK NUMBER OF DIRECTORY 
K BLOCK ADDRESS OF DIRECTORY 



RO 

R1,DIRTRK 

R1,DIRL0C 

R1,N(MBKN0)(KA0) 

TAPUCLNT 

OPENTCB 

5,TAPUCLNT 1,0 1,0 2,0 3,1 1,1 

A30RTTU 

TUCOPYCTL+N(SUBST) 

2 

2 

0(2263) ft 12649 

************* THE FIRST ADDRESS OVERWRITTEN IS 002263 ********** 



0017515 



0017515 03 002263 103001 
0017516 



42 SEZC 

43 H THIS SUBSTATE WILL SEIZE THE COMPARE TAPE UNIT 



45 

46 

-001- 47 



LN R0,1 

EOW # 12649 

NOTE *************** THE LAST ADDRESS OVERWRITTEN IS 002263 ********* 
* 
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. . 












C0< 


TAPE UTILITY MULTISCAN FUNCTION 










0:32:20 2/06/81 **** 


TAPE UTILITY MONITOR ROUTINES 










CNRUTL W77D 


0017516*03 


002264 040021 




01 
02 




L 
SEIZE 


R1,N(MBKN0)(RA0) 
TAPUCLNT 


0017517 03 


002265 037020 126205 CTAPH 


-002- 


03 




BSA 


OPENTCB 


0017521 03 


002267 010030 


-001- 


04 




VFD 


5,TAPUCLNT 1,0 1,0 2,0 3,1 1,1 


0017522 03 


002270 155734 0017456 




05 




BNC 


ABORTTU 


0017523 






06 


NEXSTAT 




0017523 03 


002271 137040 010054 0010054 




07 




A1S 


TUCOPYCTL+N(SUBST) 


0017525 






08 




RETURN 


2 


0017525 03 


002273 056462 


-001- 


09 




BTSAN 


2 


0017526 


. 




13 


READFM 






0017526 






14 


READFC 












15 


THESE SUBSTATES WILL READ THE MASTER TAPE UNIT AND 








16 


n THE 


COMPARE 


TAPE UNIT IN TURN. 








18 




RD1BLK 


TAPUCLNT, STALST 


0017526 03 


002274 173047 


-002- 


19 




BSAI 


RXEQR n SUBROUTINE REQR IS IN PROGRAM CTAPH 


0017527 03 


002275 010400 015771 0015771 


-001- 


20 




ADDR 


STALST,TAPUCLNT*E(7)+RD1BLK*E(3) 


0017531 03 


002277 156000 




21 




BPAX 


RO 








22 


TAPUTL 


OW 


0(2300) K 12649 






-001- 


23 




NOTE 


************* THE FIRST ADDRESS OVERWRITTEN IS 002300 ********** 


0017532 03 


002300 153771 0017523 




26 




B 


NEXSTAT 


0017533 03 


002301 153723 0017456 




27 




B 


ABORTTU 


001 7534 






28 




RETURN 


2 


• 0017534 03 002302 156A62 


-001- 


29 




BTSAN 


2 


0017535 






30 




EOW 


n 12649 






-001- 


31 




NOTE 


*************** THE LAST ADDRESS OVERWRITTEN IS 002302 ********* 
* 


0017535 






38 


STMADR 












39 


n THIS 


SUBSTATE STORES THE ADDRESS OF THE MASTER TDC 


0017535 






41 




CALL 


DIRSER n SUBROUTINE DIRECTORY SERCH 


0017535 03 


002303 137020 020157 0020157 


-001- 


42 




BSA 


DIRSER 


0017537 03 


002305 155717 0017456 




43 




BNC 


ABORTTU.... (K FILE NOT FOUND 


0017540 03 


002306 044031 




44 




ST 


R1,N(AUX2)(RA0) * STORE STARTING ADDRESS OF MASTER 


0017541 03 


002307 044050 




45 




ST 


R2,N(LASBLK)(RA0) H STORE ENDING ADDRESS OF MASTER 


0017542 03 


002310 037040 010054 0010054 




46 




A1S 


TUCOPYCTL+N(SUBST) * NEXT SUBSTATE 








47 


TAPUTL 


OW 


0(2312) 03E79O26O 






-001- 


48 




NOTE 


************* THE FIRST ADDRESS OVERWRITTEN IS 002312 *********** 
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TAPE UTILITY MULTISCAN FUNCTION 
TAPE UTILITY MONITOR ROUTINES 

0017544 03 002312 037000 121463 0000225 



D06 



01 CPATCH7 BGNP 

-001- 02 BL 

-001- 03 NOTE 

-001- 04 NOTE 



0:32:20 2/06/81 **** 
CNRUTL W77D 
0(225) 03E79O26O 

mn43 

CPATCH7 'CSECT* 

***************** PATCH AREA BEGINS AT 000225 **************** 



0121463 

0121463 14 000225 173047 

0121464 14 000226 011300 

0121465 

0121465 14 000227 137020 147320 BLMMA 
0121467 

0121467 14 000231 137000 017546 0002314 



-001- 07 XXX1143 PATCHAREA 



08 


CLOSE 


-002- 09 


BSAI 


-001- 10 


VFD 


11 


CALL 


-001- 12 


BSA 


13 


ENDP 


-001- 14 


BL 


-001- 15 


NOTE 


-001- 16 


NOTE 



TAPUCLNT 

RXEQR U SUBROUTINE REQR IS IN PROGRAM CTAPH 

5, TAPUCLNT 4, CLOSE 1,1 1,0 5,0 

TEMP.1NH 

TEMPINH - 

#3E790260 
XXX1148 

************ last PATCH ADDRESS USED IS 000232 *************** 
***** NUMBER OF PATCH WORDS USED IS 6 (DECIMAL) ******** 



0017546 
0017546 



-001- 19 XXX1148 OWCONTINUE 

20 EOW (K3E790260 

-001- 21 NOTE *************** THE LAST ADDRESS OVERWRITTEN IS 002313 ********* 

* 



0017546 

0017546 03 002314 156462 



25 
-001- 26 



RETURN 2 
BTSAN 2 



0017547 30 COMPADR K COMPARE ADDRESSES 

31 # THIS SUBSTATE COMPARES THE ADDRESSES OF THE MASTER AND STANDARD TDCS 

0017547 33 CALL DIRSER 

0017547 03 002315 137020 020157 0020157 -001- 34 BSA DIRSER 

001755103 002317 155705 0017456 35 BNC ABORTTU # FILE NOT FOUND 

0017552 03 002320 040071 36 L R3,N(AUX27(RA0) # GET STARTING ADDRESS OF MASTER 

37 TAPUTL OW 0(2321) U 12649 

-001- 38 NOTE ************* THE FIRST ADDRESS OVERWRITTEN IS 002321 ********** 

0017553 03 002321 040110 41 L R4,N(LASBLK)(RA0) # GET ENDING ADR OF MASTER 

0017554 42 EOW H 12649 

-001- 43 NOTE , *************** THE LAST ADDRESS OVERWRITTEN IS 002321 ********* 

* 
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E06 



TAPE UTILITY MULTISCAN FUNCTION 
TAPE UTILITY MONITOR ROUTINES 

0017554 03 002322 020023 

0017555 03 002323 055030 0017605 

0017556 03 002324 020044 

0017557 03 002325 055026 0017605 

0017560 03 002326 037040 010054 0010054 
0017562 



-001- 08 



01 
02 
03 
04 
05 

06 CTAPEU 

07 TAPUTL OW 



CR 

BNC 

CR 

BNC 

A1S 



R1,R3 
BYBLK 
R2,R4 
BYBLK 
TUCOPYCTL+N(SUBST) 

0(2330) 



0:32:20 2/06/81 **** 
CNRUTL W770 
# COMPARE STARTING ADDRESSES 
U COMPARE ENDING BLOCK NUMBERS 
U NEXT SUBSTATE 
(K3E790260 



NOTE 



************* THE FIRST ADDRESS OVERWRITTEN IS 002330 ********** 



0017562 03 002330 137000 121505 0000247 



11 CPATCH7 BGNP 0(247) #3E790260 

-001- 12 BL XXX1160 

-001- 13 NOTE CPATCH7 'CSECT' 

-001- 14 NOTE ***************** PATCH AREA BEGINS AT 000247 **************** 



0121505 

0121505 14 000247 173047 — 

0121506 14 000250 011300 

0121507 

0121507 14 000251 137020 147320 BLMMA 
0121511 

0121511 14 000253 137000 017564 0002332 



-001- 17 XXX1160 PATCHAREA 

18 CLOSE TAPUCLNT 

-002- 19 BSAI RXEQ.R * SUBROUTINE RE«R IS IN PROGRAM CTAPH 

-001- 20 VFD 5, TAPUCLNT 4, CLOSE 1,1 1,0 5,0 

21 CALL TEMPINH 

-001- 22 BSA TEMPINH 

23 ENDP /K3E790260 

-001- 24 BL XXX1165 

-001- 25 NOTE ************ LAST PATCH ADDRESS USED IS 000254 *************** 

-001 - 26 NOTE ***** NUMBER OF PATCH WORDS USED IS 6 (DECIMAL) ******** 



0017564 
0017564 



-001- 29 XXX1165 OWCONTINUE 

30 EOW IK3E790260 

-001- 31 NOTE *************** THE LAST ADDRESS OVERWRITTEN IS 002331 ********* 

* 



0017564 

0017564 03 002332 156462 

0017565 

0017565 03 002333 103000 

0017566 03 002334 003020 

0017567 03 002335 031440 010055 0010055 

0017571 03 002337 037020 126202 CTAPH 
0017573 03 002341 155663 0017456 



35 
-001- 36 



RETURN 2 
BTSAN 2 



40 OPENMAST 

41 # RA1 MUST POINT TO THE DATA AREA HOLDING THE FILE NAME 





43 


ZR RO 




44 


ZR R1 




45 


LAL R2,TUC0PYCTL+3,RA1 




46 


OPENM TAPUCLNT, RA1 


001- 


47 n 


ASSURE RA1 POINTS TO YOUR DATA TABLE 


002- 


48 


BSA OPENM 




49 


BNC ABORTTU 
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JUL 



TAPE UTILITY MULTISCAN FUNCTION 

TAPE UTILITY MONITOR ROUTINES 

001757* '03 002342 0370*0 01005* 001005* 
0017576 

0017576 03 0023** 056*62 

0017577 

0017577 03 0023*5 1730*7 

0017600 03 0023*6 011500 

0017601 03 0023*7 156000 



01 


A1S 


TUUTCTL+N(SUBST) 


02 


RETURN 


2 


03 


BTSAN 


2 



-001- 



05 COPYMAC 

06 COPY 
-002- 07 BSAI 
-001- 08 VFD 

09 BPAX 

10 TAPUTL OW 
-001- 11 NOTE 



0:32:20 2/06/81 **** 
CNRUTL W77D 



H COPYFILE MACRO CALL 
TAPUCLNT 

RXEQR H SUBROUTINE REQ.R IS IN PROGRAM CTAPH 

5,TAPUCLNT *,COPY 1,1 1,0 5,0 
RO 

0(2350) It 126*9 

************* THE FIRST ADDRESS OVERWRITTEN IS 002350 ********** 



0017602 03 002350 153721 0017523 

0017603 03 002351 153653 0017*56 

001760* 

001760* 03 002352 156*62 

0017605 





14 


B 


NEXSTAT 




15 


B 


ABORTTU 




16 


RETURN 


2 


001- 


17 


BTSAN 


2 




18 


EOW 


» 126*9 


0U1- 


19 


NOTE 


*************** THE LAST ADDRESS OVERWRITTEN IS 002352 ********* 

* 



0017605 



2* BYBLK 

25 U CHECK FOR FILE WRAP-AROUND AND IF FILE LENGTHS DIFFER. 



0017605 
0017607 
"0017607 
0017610 
0017612 
0017612 
0017613 
0017615 
0017617 
0017620 
0017622 
001762* 
0017625 
0017625 
0017626 



03 002353 117022 01*000 

03 002355 0556*7 0017*56 

03 002356 01706* 01*000 

03 002360 0556** 0017*56 

03 002361 016521 003777 
03 002363 0165*2 003777 

03 002365 0051*5 

03 002366 016563 003777 
03 002370 01660* 003777 
03 002372 005207 

03 002373 020150 

03 00237* 055630 0017*56 



-001- 



-001- 



-002- 
-001- 



-001- 



27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 



CRM R1,R2,M(TRACK) 

IF CF ■ THEN B ABORTTU 

BNC ABORTTU 

CRM R3,R*,M(TRACR7 

IF CF = THEN B ABORTTU 

BNC ABORTTU 

LRM R5,R1,M(BLKADR) U 

LRM R6,R2,M(BLKADR) M 

SR R6,R5 U 

LRM R7,R3,M(BLKADR> 

LRM R8,R*,M(BLKADR) 

SR R8,R7 K R8 

IF R6 -= R8 THEN B ABORTTU 

CR R6,R8 

BNC ABORTTU 



KEEP 
KEEP 

R6 - 



STARTING ADDRESS ONLY 

ENDING ADDRESS ONLY 

LENGTH R5 = BGN ADR OF COMPARE 



LENGTH R7 ■ BGN ADR OF MASTER 



It SET UP CONTROL BLOCK FOR THE 
TAPUTL OW 0(2375) 



NOTE 



COPY BLOCK ROUTINE 
It 12649 



************* THE FIRST ADDRESS OVERWRITTEN IS 002375 ********** 
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J5L 



TAPE UTILITY MULTISCAN FUNCTION 
TAPE UTILITY MONITOR ROUTINES 

0017627 03 002375 003164 

0017630 03 002376 044166 

0017631 03 002377 003160 

0017632 03 002400 044162 

0017633 03 002401 003561 000011 

0017635 03 002403 037000 020426 0020426 



0020426 

0020426 03 003174 144160 

0020427 03 003175 003442 003777 

0020431 03 003177 C44050 

0020432 03 003200 003161 

0020433 03 003201 044171 

0020434 

0020434 03 003202 037000 017637 0017637 









0017637 

0017637 03 002405 103462 017777 

0017641 



0:32:20 2/06/81 **** 
CNRUTL W770 



01 


LN 


02 


ST 


03 


ZR 


04 


ST 


05 


LI 



06 TAPUTL BGNP 
-001- 07 BL 
-001- 08 NOTE 
-001- 09 NOTE 



R7,4 

R7,N(TPN0)(RA0) 

R7 

R7,N(SUBST)(RA0) 

R7,C0PYFN 

0(3174) 

XXX1186 

TAPUTL 'CSECT' 

***************** PATCH AREA BEGINS AT 003174 **************** 



K STORE TAPE NUMBERS 0S1 
U CLEAR SUBSTATE 
K 12649 




XXX1186 PATCHAREA 



18 

-001- 19 
-001- 20 
-001- 21 



ST 

NI 

ST 

LN 

ST 

ENDP 

BL 

NOTE 

NOTE 



R7,N(UTCTL)(RA0) 
R2,M(BLKADR) 
R2,N(LASBLK)(RA0) 
R7 1 
R7^N(AUX2)(RA0) 



K STORE NEW FUNCTION CODE 



STORE LAST BLK TO COPY 
COPY FROM ONE TRK ONLY 



# 12649 
XXX1188 

************ LAST PATCH ADDRESS USED IS 003203 *************** 
***** NUMBER OF PATCH WORDS USED IS 8 (DECIMAL) ******** 



-001- 24 XXX1188 OWCONTINUE 

25 NI R3,M(TRCK)+t1(BLKADR> H TRACK AND BLK NUMBER OF MASTER 

26 EOW n 12649 

-001- 27 NOTE *************** THE LAST ADDRESS OVERWRITTEN IS 002406 ********* 

* ■ 



0017641 03 002407 044061 



31 ST 

32 TAPUTL OW 
-001- 33 NOTE 



R3,N(HBKNO)(RA0) * TRACK & BLOCK NUMBER OF MASTER 

0(2410) * 12649 

******„****** THE FIRST ADDRESS OVERWRITTEN IS 002410 ********** 



0017642 03 002410 003422 017777 
0017644 



36 

37 

-001- 38 



NI R1,M(TRCK)+M(BLKADR) * TRACK AND BLK NUMBER OF COMPARE 

EOW n 12649 

NOTE *************** THE LAST ADDRESS OVERWRITTEN IS 002411 ********* 

* 



0017644 03 002412 044023 

0017645 03 002413 053715 



0017562 



42 
43 



ST 
B 



R1,N(CBKN0)(RA0> 
CTAPEU 



H TRACK S BLOCK NUMBER OF COMPARE 
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TAPE UTILITY MULTISCAN FUNCTION 

TAPE UTILITY MONITOR ROUTINES 

00176*6' 
0017646 



0017646 03 002414 173053 

0017647 03 002415 101200 

0017650 03 002416 021040 

0017651 03 002417 021042 

0017652 03 002420 014013 TTYTBL 

0017653 03 002421 000122 TTYTBL 

0017654 03 002422 000302 TTYTBL 

0017655 03 002423 153340 0020215 



0:32:20 2/06/81 **** 



CNRUTL 



W77D 



01 


COPFIN 




02 






PRINT 


■001- 04 


* 


MESSAGE P 


■001- 05 


§ 


A 


mm 


002- 06 






BSAI 


002- 07 






VFD 


002- 08 






VFD 


002- 09 






VFD 


002- 10 






VFO 


002- 11 






VFD 


002- 12 






VFD 


001- 13 






NOTE 



PACTION=A,FMT(WRD(C,0,P,Y),WRD(F,I,L,E>,WRD(C,0,M,P,L)> 



15 



COPY FILE COMPL 

PXMRY k SUBROUTINE PMRY IS IN PROGRAM TTYAPP 

1,1 2,0 1,0 3,1 1,0 1,1 1,0 2,0 1,0 3,0 

4,TTY0_ 4,TTY0_ 4,TTY0 4,TTY0 WRD 

4,TTY0_ 4,TTY0_ 4,TTY0 4,TTY0~ 

5,3 11,CX0PY 

5, 11,FXILE 

5, 11,CX0MPL 

THE VARIABLE PORTION OF THE OUTPUT MESSAGE TO BE PRINTED IS 

CONTAINED IN GENERAL REGISTERS 
ABORTTU 
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, P«" 


TAPE UTILITY MULTISCAN 


FUNCTION 










0:32:20 2/06/81 **** 


TAPE UTILITT MONITOR ROUTINES 










CNRUTL W77D 


0017656 








01 


LOMASBTMON 




02 * 


THIS 


IS THE TASK 


THE OFFLINE MAIN STORE RELOAD 


03 » 


FUNCTION USING 


THE BOOTSTRAP IN THE OFFLINE CC. 


00176S6 








05 




BEGIN 


O 


0017656 03 002424 156001 


______ 






06 




BPAX 


R1 


0017657 03 002425 153016 




0017675 




07 




B 


OPENBOOT n OPEN BOOTSTRAP FILE 


0017660 03 002426 153032 




0017712 




08 




B 


IDLESTATE 


0017661 03 002427 153033 




0017714 




09 




8 


RD1STBLK U READ IN OFFLINE BOOTSTRAP PARAMETERS 


0017662 03 002430 153030 




0017712 




10 




B 


IDLESTATE 


0017663 03 002431 153033 




0017716 




11 




B 


CLOSEBOOT H CLOSE BOOTSTRAP FILE 










12 


TAPUTL 


OW 


0(2432) It 12447 








-001- 


13 




NOTE 


************* THE FIRST ADDRESS OVERWRITTEN IS 002432 ********** 


0017664 








16 




TAKEOUT 


1 


0017664 03 002432 106000 






-001- 


17 




LR 


0,0 


0017665 








18 




EOW 


n 12447 


'- 






-001- 


19 




NOTE 


*************** THE LAST ADDRESS OVERWRITTEN IS 002432 ********** 


0017665 03 002433 153034 




0017721 




22 




B 


0VERWRITE1 # LOAD INITIALIZE TEST CONSTANTS INTO OTS 


0017666 03 002434 153046 




0017734 




23 




B 


PHASEONE It KICKOFF BOOTSTRAP 


0017667 03 002435 153103 




0017772 




24 




B 


CHECKHALT1 » CHECK FOR CC HALTED 


0017670 (13 002436 153123 




0020013 




25 




B 


0VERWRITE2 » SET OFFLINE BOOT SWITCH IN OTS 


0017671 03 002437 153133 




0020024 




26 




B 


PHASETWO # CONTINUE BOOTSTRAP LOAD 


0017672 03 002440 153140 




0020032 




27 




B 


UPDSYSTIM2 n PERFORM TIMING FOR OFFLINE CC 8 CHECKHALT2 
UPDOTS U UPDATE OTS FROM ONLINE (IF NECESSARY) 


0017673 03 002441 153151 




0020044 




28 




B 


0017674 03 002442 153171 




0020065 




29 




B 


UPDOTSCONT * CONTINUE UPDATE 


0017675 








33 

34 


OPENBOOT 

# SUBSTATE TO 


OPEN EXPLICIT THE OFF-LINE TAPE BOOTSTRAP FILE. 


0017675 03 002443 103401 


177777 






35 




LI 


R0,E(16)-1 


0017677 03 002445 057437 








36 




TCC1 




0017700 03 002446 030000 








37 




ICF 


R0,0 


0017701 03 002447 015400 








38 




COM 


RO n RO «=TAPE NO. OF OFFLINE CC. 










39 


# R1 MUS 










40 




OPENE 


TAPUCLNT, (B,0,0,T,S,T,P) 


0017702 03 002450 037020 


126205 


CTAPH 


-002- 


41 




BSA 


OPENTCB 


0017704 03 002452 011123 






-001- 


42 




VFD 


5,TAPUCLNT 1,0 1,1 2,0 3,((7+1)/2)+1 1,0 3,((7+1)/2)-1 


0017705 03 002453 041317 






-001- 


43 




VFD 


8,ASC B 8,ASC 


0017706 03 002454 147724 ■ 






-001- 


44 




VFD 


8,ASC"0 8,ASC~T 


0017707 03 002455 051724 






-001- 


45 




VFD 


8,ASC"S 8,ASC~T 


0017710 03 002456 050000 






-001- 


46 




VFD 


8,ASC P 8,ASC 










47 


K OPEN 


FAILURE 


WILL BE DETECTED BY IDLESTATE 


0017711 03 002457 153166 ■ 




0020077 




48 




B 


ADVSUBST U ADVANCE SUBSTATE 
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TAPE UTILITY MULTISCAN FUNCTION 




0:32:20 2/06/81 **** 


TAPE UTILW MONITOR ROUTINES 




CNRUTL W77D 


0017712 

0017712 03 002460 137000 016703 0016703 




01 IDLESTATE 

02 # SUBSTATE TO WAIT FOR TAPE OPERATION 

03 BL IDLSTATE 


0017714 

0017714 03 002462 137000 015762 0015762 




07 RD1STBLK 

08 * SUBSTATE TO READ IN THE FIRST BLOCK OF BOOTSTRAP FILE. 

09 BL RD1M0N 


0017716 


-001- 


13 CL0SEB00T 

14 * SUBSTATE TO CLOSE THE BOOTSTRAP FILE AFTER READ-IN 

15 TAPUTL OW 0(2464) H 3E790507 

16 NOTE ************* THE FIRST ADDRESS OVERWRITTEN IS 002464 ********** 


0017716 03 002464 137000 115213 0000120 


-001- 
-001- 
-001- 


19 CPATCH3 BGNP 0(120) # 3E790507 

20 BL XXX1223 

21 NOTE CPATCH3 'CSECT' 

22 NOTE ***************** PATCH AREA BEGINS AT 000120 **************** 


0115213 

0115214 13 000121 011300 

0115215 

0115215 13 000122 137020 001226 CBLM 
0115217 

0115217 13 000124 137000 017720 0002466 


III 1 II 1 

ooo o oo o 
ooo o oo o 

ill i ii i 


25 XXX1223 PATCHAREA 

26 CLOSE TAPUCLNT 

BSAI RXEQR K SUBROUTINE REAR IS IN PROGRAM CTAPH 

28 VFD 5,TAPUCLNT 4, CLOSE 1,1 1,0 5,0 

29 CALL QOFLCC * QUARANTINE OFFLINE STORE (TURN OFF UPDATE) 

30 BSA QOFLCC 

31 ENDP U 3E790507 

32 BL XXX1228 

33 NOTE ************ LAST PATCH ADDRESS USED IS 000125 *************** 

34 NOTE ***** NUMBER OF PATCH WORDS USED IS 6 (DECIMAL) ******** 


0017720 
0017720 


-001- 
-001- 


37 XXX1228 OWCONTINUE 

38 EOW « 3E790507 

39 NOTE *************** THE LAST ADDRESS OVERWRITTEN IS 002465 ********** 


0017720 03 002466 153157 0020077 




42 B ADVSUBST 
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TAPE UTILITY MULTISCAN FUNCTION 






0:32:20 2/06/81 **** 


TAPE UTILITT MONITOR ROUTINES 






CNRUTL H77D 


0017721 « 







01 0VERWRITE1 

02 U SUBSTATE 


TO TURN OFF REFRESH ON THE OMAS AND 








03 U WRITE THE OFFLINE BOOT TABLE DATA INTO OTHER TEMPORARY STORE 


. 






04 TAPUTL OH 


0(2467) K 3E790679 






-001- 


05 NOTE ************* THE FIRST ADDRESS OVERWRITTEN IS 002467 ********** 
08 CPATCH7 BGNP 0(131) * 3E790679 


0017721 03 002467 


137000 121367 0000131 


-001- 


09 BL 


XXX1234 






-001- 


10 NOTE CPATCH7 'CSECT' 






-001- 


11 NOTE ***************** PATCH AREA BEGINS AT 000131 **************** 


0121367 




-001- 


14 XXX1234 FATCHAREA 


0121367 14 000131 


151103 




15 TBS 


N(LEN0)(RA0),4 # ERASE OFF-LINE STORE ? 


0121370 14 000132 


055034 0121424 




16 BNC 


BACKX * NO 


0121371 14 000133 


040010 




17 L 


R0,N(AUX1)(RA0) 


0121372 






18 IF 


RO ■ THEN RGBEGIN ••/ 


0121372 14 000134 


014000 


-002- 


19 


TZ RO 


0121373 14 000135 


055026 0121421 


-001- 


20 


BNC IFS1236 


0121374 14 000136 


040011 




21 


L R0,N(AUX2)(RA0) 


0121375 






22 


IF RO = THEN RGBEGIN 


0121375 14 000137 


014000 


-002- 


23 


TZ RO 


0121376 14 000140 


055010 0121406 


-001- 


24 


BNC IFS1238 








25 CPATCH7 


OW 0(141) #3E800198 






-001- 


26 


NOTE ************* THE FIRST ADDRESS OVERWRITTEN IS 000141 










********** 








30 CPATCH7 


BGNP 0(344) 03E8OO198 


0121377 14 000141 


037000 121602 0121602 


-001- 


31 


BL XXX1242 






-001- 


32 


NOTE CPATCH7 'CSECT* 






-001- 


33 


NOTE ***************** PATCH AREA BEGINS AT 000344 *************** 

* 


0121602 




-001- 


37 XXX1242 


PATCHAREA 


0121602 14 000344 


131400 043017 CTSD 




38 


LAL R0,AUMASCTL,RA1 


0121604 14 000346 


061501 CBLM 




39 


SBS N(PKEYM)(RA1),S(PKEYM) # SET UNCONDITIONAL UPDATE BIT 


0121605 14 000347 


003641 006070 




40 


LI R10,REFST0P # REFRESH STOP COMMAND 


0121607 






41 


ENDP *3E800198 


0121607 14 000351 


037000 121401 0121401 


-001- 


42 


BL XXX1244 






-001- 


43 


NOTE ************ LAST PATCH ADDRESS USED IS 000352 ************** 

* 
NOTE ***** NUMBER OF PATCH WORDS USED IS 7 (DECIMAL) ******** 






-001- 


45 
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TAPE UTILITY MULTISCAN FUNCTION 
TAPE UTILITY MONITOR ROUTINES 



0121401 
0121*01 



-001- 01 XKX1244 

02 
-001- 03 



E07 

0:32:20 2/06/81 **** 
CNRUTL W77D 

OWCONTINUE 

EOW /H3E800198 

NOTE *************** THE LAST ADDRESS OVERWRITTEN IS 000142 

********** 



0121401 
0121401 
0121401 
0121402 
0121403 
0121404 
0121404 
0121406 
0121406 
0121406 
0121407 
0121407 
0121407 
0121410 
0121411 
0121411 
0121411 
0121412 
0121412 
0121414 
0121414 
0121414 
0121415 
0121416 
0121417 
0121417 
0121421 
0121421 
0121421 
0121422 
0121422 
0121422 
0121423 
0121424 
0121424 



14 000143 173022 

14 000144 003341 

14 000145 144011 

14 000146 037020 121425 0121425 

14 000150 140011 

14 000151 073037 

14 000152 155C02 0121412 

14 000153 156462 

14 000154 103641 006060 



14 000156 073022 
14 000157 000051 
14 000160 144010 



14 000163 140010 

14 000164 073037 

14 000165 154766 0121411 

14 000166 153023 0121447 



-001 • 
-002' 
-00 V 



-001 
-001 • 



-001 ■ 
-002' 



-001 



-001- 
-002- 
-001- 



14 000161 037020 121425 0121425 -001' 

-001- 



-001- 
-002- 



07 
08 
0? 
10 

11 

12 

13 

14 

15 IFS1238 

16 

17 

18 

19 

20 

21 RTN LP 

22 

23 

24 STRTREF 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 IFS1236 

35 

36 

37 

38 

39 

40 BACKX 



BGNTIM 

CALL 

BSAI 

DATA 

ST 

CALL 

BSA 

R6END 

L 

CHKTIM 

CALL 

BSAI 

BNC 



SEC=44 

TIMOUT 

TXIMOUT 

1761 

R0,N(AUX2)(RA0) 

REFRESH 

REFRESH" 



R0,N(AUX2)(RA0) 



TIMCHK 

TXIMCHK 

STRTREF 



RETURN 2 

BTSAN 2 

LI R10,REFSTRT 

BGNTIM SEC*1 

CALL TIMOUT 

BSAI TXIMOUT 

DATA 41 

ST R0,N(AUX1)<RA0> 

CALL REFRESH 

BSA REFRESH" 

RGEND 



L R0,N(AUX1)(RA0) 

CHKTIM 

CALL TIMCHK 

BSAI TXIMCHK 

BC RTN LP 



U SUBROUTINE TIMOUT IS 

* TIMOUT+1 

U KEEP TIME CONSTANT 



IN PROGRAM CSYSUB 



» REFRESH OFF LONG ENOUGH ? 

M HAS TIMOUT OCCURRED? 

# SUBROUTINE TIMCHK IS IN PROGRAM CSYSUB 

» YES 



* REFRESH START COMMAND 



n SUBROUTINE TIMOUT IS IN PROGRAM CSYSUB 
K TIMOUT+1 



» HAS TIMOUT OCCURRED? 

n SUBROUTINE TIMCHK IS IN PROGRAM CSYSUB 



41 



B 



BACK1 



0121425 

0121425 14 000167 130462 021637 TDATA 

0121427 14 000171 003462 000014 

0121431 14 000173 010461 — 

0121432 14 000174 004462 

0121433 14 000175 031441 016446 MASACS 



44 REFRESH 

45 

46 

47 
48 

49 



ft. R3,STRLIM 

NI R3,0(14) 

RRN R3,1 

AN R3,2 

LAL R2/NASCI0SCRA1 



* KEEP HI BITS OF MAS ADR 
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TAPE UTILITT MULTISCAN FUNCTION 
TAPE UTILITr MONITOR ROUTINES 



0:32:20 



2/06/81 **** 



CNRUTL 



W770 



0121435 
0121435 
0121436 
0121437 
0121437 
0121441 
0121443 
0121444 
0121446 
0121446 
0121446 
0121447 
0121447 
0121447 
0121451 
0121453 
0121453 



0017723 
0017723 



14 000177 104077 
14 000200 042623 



OT NX_ST 



14 000201 037020 111050 CSYSUB 
14 000203 103465 000001 

14 000205 054003 0121446 

14 000206 036060 121435 0121435 



14 000210 156400 



14 000211 137020 110443 CSYSUB 
14 000213 131520 045466 CIPL 

14 000215 037000 017723 0002471 



-001- 

-001- 
-001- 



-001- 
-001- 
-001- 



-001- 
-001- 



04 
05 
06 
07 
08 
09 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 



RTNNOW 



BACK1 



SN 

IX 

CALL 

BSA 

CI 

BC 

BX 

RETURN 
BTSA 

CALL 

BSA 

LAL 

ENOP 

BL 

NOTE 

NOTE 



R3,1 

R9,R3(RA1) 

SENDMIO 

SENDM10 

R3,1 

RTNNOM 

R3,NX ST 



INITOST 
INITOST 
R5,0FLB00TTBL,RA1 



U R3 » NO. OF MAS 



n LAST STORE DONE 



n INITILIZE OTHER CC AND MAS 



U 3E790679 
XXX1264 
************ LAST PATCH ADDRESS 



USED IS 000216 *************** 



***** NUMBER OF PATCH W0P5S USED IS 54 (DECIMAL) ******** 



22 XXX1264 OWCONTINUE 

23 EOW H 3E790679 

24 NOTE *************** THE LAST ADDRESS OVERWRITTEN IS 002470 ********* 

* 



0017723 
0017724 
0017724 
0017725 
0017726 
0017727 
E0017727 
0017730 
0017731 
0017731 
0017733 



03 002471 153006 001 7731 

03 002472 141701 

03 002473 041721 

03 002474 041401 

03 002475 000400 

03 002476 136100 136120 

03 002477 136120 017724 0017724 
03 002501 053144 0020077 



OVERWRDEC 



-001- 
-001- 



28 B 

29 OVERWRLP 

30 LA RA0,1(RA1> 

31 LA RA0+1,1(RA1) 

32 LA R0,1(RA1> 

33 STOS O(RAO) 

34 MSTF O(RAO) 

35 DATA B (101 11 10001 000000) 

36 OVERWRDEC 



* ADDRESS IN RAO 

n DATA IN RO 

If WRITE INTO OTS 



37 
38 



BX R5,0VERWRLP 
B ADVSUBST 



0017734 
0017734 
0017734 03 002502 137020 127432 CTAPH 



42 PHASEONE 

43 # SUBSTATE TO INITIALIZE THE OFFLINE CU AND KICKOFF PHASE ONE 

** CALL SETMAINT SET OF THE TAPES MAINTENANCE STATE TO 

ALLOW DIRECT CONTROL 
-001- 46 BSA SETMAINT 

47 TAPUTL OW 0(2504) # 13054 

-001- 48 NOTE ************* THE FIRST ADDRESS OVERWRITTEN IS 002504 ********** 
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TAPE UTILITT MULTISCAN FUNCTION 

TAPE UTILITT MONITOR ROUTINES 

0017736 . 

0017736 03 00250* 137020 001226 CBLM 

00177*0 

00177*0 03 002506 137020 110**3 CSYSUB 

00177*2 



00177*2 03 002510 131*20 0177*7 00177*7 

00177** 

00177** 03 002512 037020 111216 CSYSUB 

00177*6 03 00251* 153131 0020077 



00177*7 

00177*7 03 002515 000010 

0017750 



0:32:20 2/06/81 **** 
CNRUTL W77D 



01 



001- 


03 




04 


001- 


05 




06 


001- 


07 




11 




12 


001- 


13 




1* 



CALL 


QOFLCC 


* QUARANTINE THE OFFLINE MAS (TURN OFF 
UPDATE) 


BSA 


O.OFLCC 




CALL 


INITOST 


# INITIALIZE OTHER CC AND MAS 


BSA 


INITOST 




EOW 




(K 1305* 


NOTE 


*************** JHE 

* 


LAST ADDRESS OVERWRITTEN IS 002507 ********* 


LAL 


R1, MICROBOOTTBL, RA1 


# RA1 = MICROBOOTTBL 


CALL 


EXCMCH 


It EXECUTE TABLE ENTRIES 


BSA 
B 


EXCHCH 
ADVSUBST 





16 TAPUTL OW 
-001- 17 NOTE 



20 MICROBOOTTBL 

21 DATA 

22 EOW 
-001- 23 NOTE 



0017750 03 002516 
0017752 03 002520 
001775* 03 002522 
0017756 03 00252* 
0017760 03 002526 



006420 000000 
004620 000001 
000720 106631 
004620 OOU040 
000720 107231 



27 

I? 

30 
31 



ADDR 
ADDR 
ADDR 
ADDR 
A!>DR 



35 TAPUTL OW 
-001- 36 NOTE 



0(2515) # 13536 

************* THE FIRST ADDRESS OVERWRITTEN IS 002515 ********** 

* MICRO BOOTSTRAP TABLE 
(MICROEND-MICROBOOTTBL-1 )/2 

n 13536 
*************** THE LAST ADDRESS OVERWRITTEN IS 002515 ********* 

* 



0,MSTOP 

E(S(OVLOF)),LDMCHB 
MSXT*E(8) (MCHBXF,LDMIRL 
E(S(HLT)),LDMCHB 
SS_RXT*E(8) lMCHBXF,LDMIRL 



0(2530) U 13536 

************* THE FIRST ADDRESS OVERWRITTEN IS 0C2530 ********** 



0017762 03 002530 000720 070616 

001776* 03 002532 002320 001*72 

0017766 03 002534 006220 000000 

0017770 

0017770 03 002536 000000 000000 

0017772 



-001- 



39 


ADDR 


BRXT*E(8)(SSXF,LDMIRL 


*0 


ADDR 


IPL,LDMAR 


41 


ADDR 


0,MSTART 


42 


MICROEND 




*3 


ADDR 


0,0 * 


44 


EOW 


# 


45 


NOTE 


*************** THE L 



SPARE 
13536 
*************** THE LAST ADDRESS OVERWRITTEN IS 002537 ********* 

* 
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TAPE UTILITY MULTISCAN FUNCTION 
TAPE UTILITY MONITOR ROUTINES 
0017772 



0017772 03 002540 103121 
0017773 



-001- 



408 

0:32:20 2/06/81 **** 
CNRUTL W770 

01 CHECKHALT1 

02 * SUBSTATE TO MONITOR THE OFFLINE CC FOR A VALID HALT 

03 LN R5,1 

04 CHKHLTMERGE 

05 TAPUTL OW 0(2541) #3E790507 

06 NOTE ************* THE FIRST ADDRESS OVERWRITTEN IS 002541 ********** 



0017773 03 002541 137000 115221 0000126 



09 CPATCH3 BGNP 0(126) 03E79O5O7 

-001- 10 BL XXX1287 

-001- 11 NOTE CPATCH3 'CSECT' 

-001- 12 NOTE ***************** PATCH AREA BEGINS AT 000126 **************** 



0115221 

0115221 

0115221 13 000126 137020 147320 BLMMA 

0115223 13 000130 103401 000223 

0115225 

0115225 13 000132 037000 017775 0002543 



-001- 
-001- 



-001- 
-001- 
-001- 



15 XXX1287 PATCHAREA 



16 
17 
18 
19 
20 
21 
22 



* ALLOW FULL BASE LEVEL BREAK 



CALL TEMPINH 

BSA TEMPINH - 

LI RO,RTNSS 

ENDP 03E79O5O7 

BL XXX1290 

NOTE ************ LAST PATCH ADDRESS USED IS 000133 *************** 

NOTE ***** NUMBER OF PATCH WORDS USED IS 6 (DECIMAL) ******** 



0017775 
0017775 



-001- 25 XXX1290 OWCONTINUE 

26 EOW (T3c790507 

-001- 27 NOTE *************** THE LAST ADDRESS OVERWRITTEN IS 002542 ********* 

* 



0017775 

0017775 03 002543 137020 111077 CSYSUB 

0017777 03 002545 155102 0020101 

0020000 03 002546 012403 

0020001 03 002547 024065 

0020002 03 002550 055077 0020101 



31 CALL SMCH 

-001- 32 BSA SMCH 

33 BNC NOADVSUBST 

34 UNPK MCHO 

35 TBN R3,S(HLT) 

36 BNC NOADVSUBST 

38 TAPUTL OW 0(2551) # 12638 

-001- 39 NOTE ************* THE FIRST ADDRESS OVERWRITTEN IS 002551 ********** 



0020003 03 002551 031700 045467 CIPL 
0020005 



-001- 



42 U OFFLINE CC HAS HALTED - CHECK IF VALID 

43 LAL RA0,0FLB00TTBL+1,RA1 

44 EOW K 12638 

*5 NOTE *************** THE LAST ADDRESS OVERWRITTEN IS 002552 ********* 

* 
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TAPE Umm MUUTISCAN FUNCTION 
TAPE UTILITY MONITOR ROUTINES 

0020005 '03 002553 040721 

0020006 

0020006 03 002554 076000 

0020007 03 002555 136160 

0020010 03 002556 020005 

0020011 

0020011 03 002557 055204 0020215 

0020012 03 002560 053065 0020077 



01 


L 


02 


LOS 


001- 03 


STAF 


001- 04 


DATA 


05 


CR 


06 


IF 


001- 07 




08 


8 


12 TAPUTL 


OW 


001- 13 


NOTE 



0:32:20 2/06/81 **** 
CNRUTL W77D 



# READ WORD '0FLB00TSW IN OFFLINE HAS 



RA0+1-URA1) 
O(RAO) 
O(RAO) 

8(1011110001110000) 
R0,R5 

CF = THEN B ABORTTU U IMPROPER TERMINATION OF PHASE 1 
BNC ABORTTU 
ADVSUBST 



0(2561) # 12638 

************* THE FIRST ADDRESS OVERWRITTEN IS 002561 ********** 



0020013 

0020013 03 002561 
0020015 



131520 045466 CIPL 



-001- 



16 0VERWRITE2 

17 U SUBSTATE TO MODIFY THE OFFLINE BOOT TABLE AND WRITE INTO THE OTS 

18 LAL R5,0FLB00TTBL,RA1 

19 EOW U 12638 

20 NOTE *************** THE LAST ADDRESS OVERWRITTEN IS 002562 ********* 

* 



0020015 03 002563 051063 

0020016 

0020016 03 002564 055002 0020020 

0020017 03 002565 061763 

0020020 

0020020 03 002566 103120 

0020021 03 002567 044526 



-001- 
-001- 
-001- 



-001- 



24 
25 
26 
27 
28 
29 
30 
31 
32 



IFS1305 



TAPUTL 



TBS N(LEN0)(RA0),3 # CF - 1 MEANS 
IF CF - 1 THEN SBS 3(RA1),S(ALLMAS> * 

BNC IFS1305 

SBS 3(RA1),S(ALLMAS> # SET ALL MAS 

R5 
ST R5,6(RA1) 
OW 0(2570) 
NOTE ************* THE 



'FULL* RELOAD REQUEST 
SET ALL MAS FLAG 

FLAG 



# ZERO INITTST1 
(C3E790679 
FIRST ADDRESS OVERWRITTEN IS 002570 ********** 



0020022 03 002570 037000 121313 0000055 



35 CPATCH7 BGNP 0(55) 03E79O679 

-001- 36 BL mi308 

-001- 37 NOTE CPATCH7 'CSECT' 

-001- 38 NOTE ***************** PATCH AREA BEGINS AT 000055 **************** 



0121313 

0121313 14 000055 144531 

0121314 14 000056 037000 121447 0121447 
0121316 



-001- 



-001- 
-001- 



XXX1308 PATCHAREA 



ST 

BL 

ENDP 

NOTE 

NOTE 



H ZERO INITTST2 



R5,9(RA1) 

BACK1 

NR ME790679 

************ LAST PATCH ADDRESS USED IS 000057 *************** 

***** NUMBER OF PATCH WORDS USED IS 3 (DECIMAL) ******** 
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TAPE UTILITY MULTISCAN FUNCTION 
TAPE UTILIU MONITOR ROUTINES 
0020024 



-001- 



01 
02 



COS 

0:32:20 2/06/81 **** 

CNRUTL W77D 

EOW IH3E790679 

NOTE *************** THE LAST ADDRESS OVERWRITTEN IS 002571 ********* 

* 



0020024 






0020024 03 002572 131340 045500 CIPL 
0020026 



0020026 03 002574 040361 

0020027 

0020027 03 002575 037020 111235 CSYSUB 
0020031 03 002577 153046 0020077 



-001- 



-001- 



-001- 



-001- 



09 TAPUTL OW 

10 NOTE 



0(2572) ft 12638 

************* THE FIRST ADDRESS OVERWRITTEN IS 002572 ********** 



13 PHASETWO 

14 n SUBSTATE TO START THE HAIN BOOTSTRAP PHASE IN THE OFFLINE CC 

15 LAL RA1,B00TL0ADADR,RA0 

16 EOW U 12638 

17 NOTE *************** THE LAST ADDRESS OVERWRITTEN IS 002573 ********* 

* 



21 
22 
23 
24 



L 

CALL 
BSA 
B 



28 TAPUTL OW 

29 NOTE 



RA1+1,1(RA0) 
EXCOFLPG 
EXC0FLP6 
ADVSUBST 



0(2600) n 12638 

************* THE FIRST ADDRESS OVERWRITTEN IS 002600 ********** 



0020032 






0020032 03 002600 131340 045502 CIPL 
0020034 



0020034 03 002602 040361 

0020035 03 002603 003000 

0020036 

0020036 03 002604 037020 111373 CSYSUB 
0020040 

E0020040 03 002606 100420 

0020041 03 002607 136100 

0020042 03 002610 003122 

0020043 03 002611 053730 0017773 





34 




35 




36 


001- 


37 




41 




42 




43 


001- 


44 




45 


001- 


46 


001- 


47 




48 




49 



32 UPDSYSTIM2 

33 n SUBSTATE TO UPDATE THE OTS 'SYSTIM' WORD WITH TIMING DATA. 
AFTER THE UPDATE, A CHECK IS MADE FOR A VALID HALT . 

LAL RA1,0FLSYSTIM,RA0 

EOW # 12638 

NOTE *************** THE LAST ADDRESS OVERWRITTEN IS 002601 ********* 



# RA1 * OFFLINE 'SYSTIM' 



L 


RA1+1,1(RA0) 


ZR 


RO 


CALL 


TIMOUTX 


BSA 


' TIMOUTX 


STOS 


0(RA1) 


MSTF 


0(RA1) 


DATA 


B(1011110001000000) 


LN 


R5,2 


B 


CHKHLTMERGE 



§ WRITE OFFLINE SYSTIM FOR BOOTSTRAP TIMING 
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TAPE UTILITY MULTISCAN FUNCTION 




0:32:20 2/06/81 **** 






TAPE UTILITY MONITOR ROUTINES 




CNRUTL W77D 






0020044 




04 UPDOTS 

05 # SUBSTATE TO RESET THE SYSTEM STATE AND BEGIN THE OTS UPDATE (IF REQUIRED) 

06 TAPUTL OW 0(2612) /K3E790250 








-001- 


07 NOTE ************* THE FIRST ADDRESS OVERWRITTEN IS 002612 ********** 
10 CPATCH2 BGNP 0(337) 03E79O25O 






0020044 03 002612 137000 114446 0000337 


-001- 
-001- 


11 BL XXX1327 

12 NOTE CPATCH2 'CSECT* 








-001- 


13 NOTE ***************** PATCH AREA BEGINS AT 000337 **************** 






0114446 


-001- 


16 XXX1327 PATCHAREA 






0114446 12 000337 151103 




17 TBS N(LEN0)(RA0),4 HAS OFF-LINE ST ERASED ? 






0114447 12 000340 055003 0114452 




18 BNC CLR MNT # NO 




■ 


0114450 




19 CALL ZOSPWDS U ZERO SPARE WORDS (OD) IN OFF-LINE STORE 






0114450 12 000341 037021 006067 INITA 


-001- 


20 BSA ZOSPWDS 






0114452 




21 CLR MNT 




• 


0114452 




22 CALL CLRMAINT § CLEAR TAPE MAINTENANCE STATE 




. 


0114452 12 000343 137020 127437 CTAPH 


-001- 


23 BSA CLRMAINT 




*■'-.' 


0114454 




24 ENDP (K3E790250 






0114454 12 000345 137000 020046 0002614 


-001- 
-001- 
-001- 


25 BL XXX1331 

26 NOTE ************ LAST PATCH ADDRESS USED IS 000346 *************** 

27 NOTE ***** NUMBER OF PATCH WORDS USED IS 8 (DECIMAL) ******** 






0020046 


-001- 


30 XXX1331 OWCONTINUE 






0020046 


-001- 


31 EOW 03E79O25O 

32 NOTE *************** THE LAST ADDRESS OVERWRITTEN IS 002613 ********* 

* 






0020046 




36 CALL UQOFLCC » UNQUARANTINE THE OFFLINE MAS 






0020046 03 002614 137020 001240 CBLN 


-001- 


37 BSA UflOFLCC 




• 


0020050 




38 CALL INITOST U CLEAN UP ? 






0020050 03 002616 137020 110443 CSYSUB 


-001- 


39 BSA INITOST 






0020052 




40 CALL WPOST » SET WRITE-PROTECT IN OFFLINE MAS 






0020052 03 002620 137020 110453 CSYSUB 


-001- 


41 BSA WPOST 






0020054 




42 CALL CK OST 




I 


0020054 03 002622 137020 001750 CBLM 


-001- 


43 BSA CK OST 




. 


0020056 03 002624 150000 017275 0017275 




44 BCL LOMASCOMPL * SYSTEM IN MANUAL - NO UPDATE NEEDED 




. 
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EOS 



TAPE 


UTILITY MULTISCAN FUNCTION 








0:32:20 2/06/81 **** 


TAPE 


UTILITY MONITOR ROUTINES 








CNRUTL W77D 




» 


■ - 




01 
02 
03 


* AN OTHER TEMPORARY STORE UPDATE IS REQUIRED - SET 1STB BIT AND BEGIN. 
U FIRST CALL TO 'OTSUPD' MUST BE MADE IMMEDIATELY AFTER CALL TO 'UQOFLCC 
U TO PREVENT THE SYSTEM FROM REQUESTING A FULL UPDATE. 


0020060 


03 


002C26 003*01 000002 




04 


LI 


R0,ES(1STB> 


0020062 








05 


CALL 


OTSUPD 


0020062 


03 


002630 037020 003173 CBLM 


-001- 


06 


BSA 


OTSUPD 


002006A 


03 


002632 153013 0020077 




07 


B 


ADVSUBST 


0020065 








11 
12 


UPDOTSCONT 
H SUBSTATE TO 


CONTINUE UPDATING THE OTS 


0020065 


03 






13 


ZR 


RO 


0020066 








14 


CALL 


OTSUPD 


0020066 


03 


00263* 037020 003173 CBLM 


-001- 


15 


BSA 


OTSUPD 


0020070 








16 


IF 


RO -= 3 THEN B NOADVSUBST M NOT DONE 


0020070 


03 


002636 103*05 000003 


-002- 


17 


CI 


R0,3 


0020072 


03 


0026*0 055007 0020101 


-001- 


18 
1? 


BN( 
» UPDATE DONE 


NOADVSUBST 


0020075 








20 


CALL 


STOPPSAU H KILL MAS AUDIT BEFORE IT CAN START 


0020075 


03 


0026*1 037020 00367* CBLM 


-001- 


21 


BSA 


STOPPSAU 


0020075 


03 


0026*3 137000 017275 0017275 




22 

26 


BL 
TAPUTL OW 


LOMASCOMPL * TYPE COMPL MESSAGE 
0(2645) #3E790260 








-001- 


27 


NOTE 


************* THE FIRST ADDRESS OVERWRITTEN IS 002645 ********** 


0020077 








30 
31 


ADVSUBST 
CPATCH7 BGNP 


0(233) (K3E790260 


0020077 


03 


0026*5 137000 121*71 0000233 


-001- 


32 


. BL 


XXX1346 








-001- 


33 


NOTE 


CPATCH7 'CSECT' 








-001- 


3* 


NOTE 


***************** PATCH AREA BE6INS AT 000233 **************** 


0121*71 






-001- 


37 


XXX1346 PATCHAREA 


0121*71 


1* 


000233 1370*0 010054 0000027 




38 


A1S 


TUUTCTL+N(SUBST) 


0121*73 








39 


CALL 


TEMPINH 


0121*73 


1* 


000235 037020 1*7320 BLMMA 


-001- 


40 


BSA 


TEMPINH 


0121*75 








41 


ENDP 


(H3E790260 


0121*75 


1* 


000237 137000 020101 00026*7 


-001- 


42 


BL 


XXX1349 








-001- 


43 


NOTE 


************ LAST PATCH ADDRESS USED IS 000240 *************** 








-001- 


44 


NOTE 


***** NUMBER OF PATCH WORDS USED IS 6 (DECIMAL) ******** 
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FOB 






TAPE UTILITY MULTISCAN FUNCTION 


0:32:20 2/06/81 **** 




TAPE UTILITT MONITOR ROUTINES 


CNRUTL W77D 




i 


0020101 
0020101 


-001- 01 XXX1349 OWCONTINUE 

02 EOW (H3E790260 
-001- 03 NOTE *************** THE LAST ADDRESS OVERWRITTEN IS 002646 ********* 

* 






0020101 
0020101 
C020101 03 002647 156462 


07 NOAOVSUBST 

08 RETURN 2 
-001- 09 BTSAN 2 




■■ . . .' 




* 












■ 
















• 








* 


. 








. 








. 


■ 




• - . ■ 


■ 


■ 




■ 




■'.■*■' * 
1 




: 
■ 
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TAPE UTILITr MULTISCAN FUNCTION 




0:32:20 2/06/81 


**** 


TAPE UTILITY SUBROUTINES 




CNRUTL 
01 DISCRETION: 


W77D 


' 




02 # CHECK IF THE TAPE UTILITY PROGRAM IS ACTIVE MD IDLE 




0020102 




03 

04 » ENTRY POINT: 

05 * FSTCHK 




0020102 




06 

07 # ENTRY CONDITIONS: 








08 # NONE 




0020102 




09 




. 




10 # EXIT CONDITIONS: 


. 






11 * RO = RETURN CODE 








12 n O-SUCCESS 








13 * RAO ■ BASE ADDRESS OF THE TAPE UTILITY CONTROL BLOCK 








14 U TTY RL-FAILURE,TAPE PROGRAM BUSY 




• 




15 * TTY_NG-FAILURE,TAPE UTILITY NOT ACTIVE 




0020102 




18 FSTCHK 




0020102 




19 BEGIN 




0020102 03 002650 130420 043177 CTSD 




20 LL R1,0FLUCTL 




0020104 03 002652 003425 000002 




21 CI R1,TUUTIL H IS TAPE UTILITY PROGRAM ACTIVE 


. 


0020106 03 002654 003007 TTYTBL 




22 LN RO,TTY NG 




0020107 03 002655 055007 0020116 




23 BNC RTN 




0020110 03 002656 031020 010052 0010052 




24 LAL R1,TUUTCTL,RA0 




0020112 03 002660 003000 




25 ZR RO 




0020113 03 002661 014021 




26 TZ R1 § IS TAPE UTILITY PROGRAM BUSY 




0020114 03 002662 054002 0020116 




27 BC RTN 




0020115 03 002663 003006 TTYTBL 




28 LN RO,TTY RL 




0020116 




29 RTN 




0020116 




30 RETURN 




0020116 03 002664 156400 


001- 


31 BTSA 
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TAPE UTILITY MULTISCAN FUNCTION 














0:32:20 2/06/81 **** 


TAPE UTILITY SUBROUTINES 
















CNRUTL W77D 










01 


» 


DISCRETION: 






0020117 








02 
03 

04 


t 


CHECK, CONVERT, VERIFY 


*ND STORE TTY DATA IN CONTROL BLOCK 








I 


ENTRY POINT: 














05 


# 


STORTBT 








0020117 








06 




















07 


# 


ENTRY CONDITIONS: 


-_ 












08 


§ 


R6=TAPE NUMBER 














09 
10 
11 


n 
t 
§ 


R8=TRACK NUMBER 
R9=BL0CK NUMBER 
RA0=TUUTCTL+0 






0020117 








12 




















13 


§ 


EXIT CONDITIONS: 














14 


n 


RO=RETURN 


CODE 














15 


% 


O-SUCCESS 














16 


n 


BKNO--CONTAINS VALID 


TRACK 


AND BLOCK NUMBER 










17 


t 


TPNO— CONTAINS VALID 


TAPE 


NUMBER 










18 


* 


RAO- 


-POINTS TO UTILITY 


CONTROL BLOCK 










19 


tt 


TTY NG- 


■FAILED CHECKS 






0020117 








22 


STORTBT 








0020117 








23 




BEGIN O 






0020117 03 


002665 106006 






24 




LR 


R0,R6 




n LOAD TAPE NUMBER INTO RO 


0020120 03 


002666 014000 






25 




TZ 


RO 




* WAS NUMBER TYPED AT TTY 


0020121 03 


002667 054035 


0020156 




26 




BC 


NG6ACK 






0020122 








27 




CALL 


BCDXBIN 




H CONVERT TAPE NUMBER TO BINARY 


0020122 03 


002670 073030 




-001- 


28 




BSAI 


BXCDXBIN 




H SUBROUTINE BCDXBIN IS IN PROGRAM CSYSUB 


0020123 03 


002671 130422 020006 


TDATA 




29 




LL 


R1,TAPETBL 




* LOAD R1 WITH MAX NUMBER OF TAPES 


0020125 03 


002673 004037 






30 




SN 


R1,1 






0020126 03 


002674 005020 






31 




SR 


R1,R0 




n IS TAPE NUMBER WITHIN LIMITS 


0020127 03 


002675 055027 


0020156 




32 




BNC 


NGBACK 




n no 


0020130 03 


002676 044006 






33 




ST 


RO,N(TPNO)(RAO) 


K STORE TAPE NUMBER AT LOCATION TPNO 


0020131 03 


002677 006011 






34 




LR 


R0,R9 




» LOAD RO WITH BLOCK NUMBER 


0020132 03 


002700 014000 






35 




TZ 


RO 




It WAS NUMBER TYPED AT TTY 


0020133 03 


002701 054023 


0020156 




36 




BC 


NGBACK 






0020134 








37 




CALL 


BCDXBIN 






0020134 03 


002702 073030 




-001- 


38 




BSAI 


BXCDXBIN 




H SUBROUTINE BCDXBIN IS IN PROGRAM CSYSUB 


0020135 03 


002703 106220 






39 




LR 


R9,R0 




It SAVE BLOCK NUMBER FOR LATER USE 


0020136 03 


002704 003421 000527 


MASACS 




40 




LI 


R1,BLKMAX 




K MAXIMUM BLOCK NUMBER 


0020140 03 


002706 005020 






41 




SR 


R1,R0 




* IS BLKS REQUESTED GREATER THAN MAX BLKS 


0020141 03 


002707 055015 


0020156 




42 




BNC 


NGBACK 




It IT GREATER CF=0 IF LESS CF=1 


0020142 03 


002710 006010 






43 




LR 


, R0,R3 




It LOAD RO WITH TRACK NUMBER 


0020143 








44 




CALL 


BCDXBIN 






0020143 03 


002711 073030 




-001- 


45 




BSAI 


BXCDXBIN 




It SUBROUTINE BCDXBIN IS IN PROGRAM CSYSUB 


0020144 03 


002712 114000 






46 




TZ 


RO 




II IF R0=0 NONEXISTING TRACK 


0020145 03 


002713 054011 


0020156 




47 




BC 


NGBACK 






0020146 03 


002714 004017 






48 




SN 


R0,1 




i 


0020147 03 


002715 006020 






49 




LR 


R1,R0 




# CHECK TRACK LIMITS 


COMMON NONRESIDENT UTILITIES 
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TAPE UTILITY MULTISCAN FUNCTION 
TAPE UTILITY SUBROUTINES 

0020150 03 002716 00*03* 

0020151 03 002717 05*005 0020156 

0020152 03 002720 010*05 

0020153 03 002721 01*620 

002015* 03 002722 0**221 

0020155 

0020155 03 002723 056*60 

0020156 

0020156 

0020156 03 00272* 156*67 TTYTBL 



-001- 



-001- 



01 


SN 


R1,* 


02 


BC 


NGBACK 


03 


RLN 


RO,S(TRCK) 


0* 


OR 


R9,R0 


05 


ST 


R9,N(BKNO)(RA0) 


06 


RETURN 





07 


6TSAN 





08 NGBACK 






09 


RETURN 


TTY N6 


10 


BTSAN 


TTY NG 



0:32:20 2/06/81 **** 
CNRUTL W77D 

H WAS NUMBER OF TRACKS GREATER THAN 4 

# IF GREATER CF«0 IF LESS CF=1 

K POSITION TRACK NUMBER IN UPPER BITS 

* TRACK IN UPPER BITS, BLOCK IN LOWER 

U STORE TRACK AND BLOCK NUMBER AT BKNO 
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C09 




TAPE UTILW MULTISCAN FUNCTION 














0:32:20 2/06/81 **** 


TAPE UTILITY SUBROUTINES 














CNRUTL W77D 


i 






01 


» 


DISCRIPTION 












02 


n 


SERCHES THE 


DIRECTORY FILE FOR 


THE NAME OF 








03 


# 


THE 


FILE TO 


BE COPIED 




0020157 






04 


















05 


* 


ENTRY POINT 












06 


» 


DIRSER 






0020157 






07 


















08 


n 


ENTRY CONDITIONS 










09 


* 


RAO- 


-POINTS 


TO TAPE UTILITY CONTROL BLOCK 


0020157 






10 


















11 


n 


EXI1 


CONDITION 










12 


* 


R1-- 


CONTAIN' 


THE STARTING TRACK 


AND AND BLOCK 








13 


« 


NUMBER OF FILE IF FOUND 










14 


n 


R2-- 


WILL CONTAIN THE ENDING TRACK AND BLOCK NUMBER 








15 


n 


RO * RETURN 


CODE 










16 


# 


O-SUCESS 


NONZERO-FAILURE 










17 


n 


RAO--POINTS TO TAPE UTILITY 


CONTROL BLOCK 


0020157 






19 


DIRSEF 






__.. ,..■ -" " 


0020157 






20 






BEGIN 


C) 




0020157 03 


002725 103001 




21 






LN 


R0,1 


ft WORD COUNT 


0020160 03 


002726 041024 




22 






LA 


R1,4(RA0) 


* GET FIRST TWO CHARACTERS OF FILE NAME 


0020161 03 


002727 031440 045270 LAYOUT 




23 






LAL 


R2 / I_0BUF+2,RA1 


n SET RA1 TO IOBUF AND GET 1ST TWO CHAR 


■ 0020163 






24 


CMPC 






H COMPARE CHARACTERS 


0020163 03 


002731 120022 




25 






CR 


R1,R2 




0020164 03 


002732 055025 0020211 




26 






BNC 


TRYNX 




0020165 






27 


RDNX 






# READ NEXT 


0020165 03 


002733 141021 




28 






LA 


R1,1(RA0> 


» GET NEXT TWO CHARACTERS 


•0020166 03 


002734 041441 




29 






LA 


R2,1(RA1) 




0020167 03 


002735 020022 




30 






CR 


R1,R2 




0020170 03 


002736 055012 0020202 




31 






BNC 


STRTOV 




0020171 03 


002737 004401 




32 






AN 


R0,1 










33 


TAPl 


OH 


0(2740) 


* 12649 






-001- 


34 






NOTE 


************* THE 


FIRST ADDRESS OVERWRITTEN IS 002740 ********** 


0020172 03 


002740 024002 




37 






TBN 


R0,2 


H HAS 8 CHAR BEEN READ ? 


0020173 






38 






EOW 




K 12649 






-001- 


39 






NOTE 


*************** THE LAST ADDRESS OVERWRITTEN IS 002740 ********* 

* 


0020173 03 


002741 055772 0020165 




43 






BNC 


RDNX 




0020174 03 


002742 031100 010052 0010052 




44 






LAL 


R4,TUUTCTL,RA0 


H REPOSITION RAO 


0020176 03 


002744 041441 




45 






LA 


R2,1(RA1) 


U ENDING TRACK AND BLOCK 


0020177 03 


002745 041421 




46 






LA 


R1,1(RA1) 


H STARTING TRACK AND BLOCK 


0020200 03 


002746 003000 




47 






ZR 


RO 




0020201 






48 


GOBA 






, 


0020201 






49 






RETURN 




' 


COMMON NONRESIDENT UTILITILS 
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TAPE UTILITY MULTISCAN FUNCTION 
TAPE UTILITY SUBROUTINES 
0020201 03 002747 156400 



-001- 01 



BTSA 



03 TAPUTL OH 
-001- 04 NOTE 



0:32:20 2/06/81 **** 
CNRUTL H77D 



0(2750) n 12649 

************* THE FIRST ADDRESS OVERWRITTEN IS 002750 ********** 



0020202 

0020202 03 002750 131020 010056 0010056 

0020204 03 002752 003126 

0020205 03 002753 005120 

0020206 03 002754 043445 

0020207 03 002755 003001 

0020210 03 002756 053753 0020163 

0020211 



-001- 



07 STRTOV 

08 

09 

10 

11 

12 

13 

14 

15 



LAL 

LN 

SR 

LAX 

LN 

B 

EOW 

NOTE 



START OVER 
REPOSITION RAO 

NO. OF WRDS TO NEXT FILE NAME IN IOBUF 
REPOSITION RA1 TO NEXT FILE NAME IN IOBUF 
START NEW WRD COUNT 



R1,TUCOPYCTL+4,RA0 

R5,6 

R5,R0 

R2,R5(RA1> 

R0,1 

CMPCH 

#12649 
*************** THE LAST ADDRESS OVERWRITTEN IS 002756 ********* 
* 



0020211 19 TRYNX 

0020211 03 002757 114042 20 U R2 

0020212 03 002760 054767 0020201 21 BC GOBAK 

0020213 03 002761 041446 22 LA R2,6(RA1> 

0020214 03 002762 053747 0020163 23 B CMPCH 



» GET 1ST TWO CHARACTERS IN NEXT FILE 
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E09 


TAPE 


UTILITY MULTISCAN FUNCTION 




0:32:20 2/06/81 **** 


TAPE 


UTILITY ABORT FUNCTION 




CNRUTL W77D 


0020215 




01 JBORTTU 






02 THIS SUBSECTION WILL 


CLEANLY TERMINATE 


THE TAPE UTILITY PROGRAM 




03 # REGARDLESS OF ITS CURRENT OPERATION. 


IF A TAPE FILE IS OPEN AND 




04 n A TAPE OPERATION IN 


PROGRESS, THE FILE 


WILL BE CLOSED AFTER THE 




05 H OPERATION HAS FINISHED. IN ALL CASES, 


THE ROUTINE WILL ABORT 




06 H MULTISCAN FUNCTION TRANSFERS AND OUTPUT THE 'TAPEUTIL STOPPED' MESSAGE. 




07 * IN ADDITION, OTHER FUNCTIONS ARE PERFORMED DEPENDING 




08 H UPON THE ROUTINE BEING ABORTED. IF THE TAPE AUDIT IS ABORTED, 




09 # THE AUDITED TAPE IS 


TAKEN BACK OUT OF 


SERVICE IF IT WAS ORIGINALLY 




10 U OUT OF SERVICE. IF 


THE OFF-LINE MAIN 


STORE RELOAD FROM TAPE IS ABORTED, 




11 U A REQUEST IS MADE TC 


UPDATE THE OMAS. 




0020215 




15 CALL 


ALWERRCV # ALLOW ERROR RECOVERY 


0020215 


03 002763 137020 127444 CTAPH -001- 


16 BSA 


ALWERRCV 






17 STATST 


TAPUCLNT 


0020217 


18 BSAI 


RXEO.R U SUBROUTINE REO.R IS IN PROGRAM CTAPH 


0020220 


03 002766 012300 -001- 


19 VFD 


5,TAPUCLNT 4, STATST 1,1 1,0 5,0 


0020221 


03 002767 156000 


20 BPAX 


RO 


0020222 


03 002770 153004 0020226 


21 B 


CONTABT 


0020223 


03 002771 153003 0020226 


22 B 


CONTABT 


0020224 




23 CALL 


WAIT 


0020224 


03 002772 173025 -001- 


24 BSAI 


WXAIT K SUBROUTINE WAIT IS IN PROGRAM CBLM 


0020225 


03 002773 153770 0020215 


25 B 


ABORTTU 


0020226 




26 CONTABT 








27 CLOSE 


TAPUCLNT 


0020226 


03 002774 173047 -002- 


28 BSAI 


RXE«R n SUBROUTINE RE«R IS IN PROGRAM CTAPH 


0020227 


03 002775 011300 -001- 


29 VFD 


5, TAPUCLNT 4, CLOSE 1,1 1,0 5,0 


0020230 


03 002776 103000 


30 ZR 


RO 


0020231 


03 002777 034400 043177 CTSD 


31 STL 


RO,OFLUCTL * CLEAR TAPEUTIL NRP MSF NUMBER. 






33 M TAKE CARE OF 


SPECIAL ABORT CASES 


0020233 


03 003001 031000 010052 0010052 


34 LAL 


RO,TUUTCTL,RAO 


0020235 


03 003003 003405 000007 


35 CI 


RO,AUDITFN 


0020237 




36 IF 


CF « 1 THEN RGBEGIN 


0020237 


03 003005 055013 0020252 -001- 


37 BNC 


IFS1388 


0020240 


03 003006 040023 


38 L 


R1,N(LEN0)(RA0) M RESTORE TAPE STATUS 


0020241 


03 003007 031400 043337 CTSD 


39 LAL 


R0,TUSTAT,RA1 
R2,N(TPN0KRAO) 


0020243 


03 003011 040046 


40 L 


0020244 


03 003012 010442 


41 RRN 


R2,W(TAPN0) 


0020245 


03 003013 003442 000003 


42 NI 


R2,M(TAPN0) 






43 TAPUTL OH 


0(3015) » 13059 




-001- 


44 NOTE 








********** 

• 
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TAPE UTILITY MULTISCAN FUNCTION 

TAPE UTILITY ABORT FUNCTION 

0020247 03 003015 043502 

0020250 03 003016 002420 054000 
0020252 



0020252 
0020252 



0020252 

0020252 03 003020 130400 010052 0010052 

0020254 03 003022 003404 000012 

0020256 03 003024 055010 0020266 

0020257 

0020257 03 003025 037020 110453 CSYSUB 
0020261 

0020261 03 003027 137020 001750 CBLM 
0020263 

0020263 03 003031 154003 0020266 

0020264 03 003032 037020 003332 CBLM 
0020266 

0020266 
0020266 



0020266 

0020266 03 003034 130400 010052 0010052 

0020270 03 003036 003404 000013 

0020272 03 003040 055016 0020310 

0020273 



0:32:20 2/06/81 **** 
CNRUTL W77D 



0020273 03 003041 037000 114205 0000076 



01 


LAX 


R4,R2(RA1) 


02 


STM 


R1,0(RA1),H(TSTATE)+M(COMPROK)+M(REDON) 


03 


EOW 


U 13059 


■001- 04 


NOTE 


*************** THE LAST ADDRESS OVERWRITTEN IS 003017 

********** 


08 


RGEND 




■001- 09 IFS1388 






11 # ON NORMAL EXIT, 


UTCTL IS ZEROED BEFORE ' ABORTTU' 


12 ir 


TUUTCTL+N(UTCTL) = LOMASFN THEN R6BE6IN 


■002- 13 


LL 


RO,TUUTCTL+N (UTCTL) 


■002-;14 


XI 


RO, LOMASFN 


•001- 15 


BNC 


IFS1394 


17 


CALL 


WPOST 


■001- 18 


BSA 


WPOST 


19 


CALL 


CK OST _•• - " " 


■001- 20 


BSA 


CK OST :- 


21 


IF 


CF = THEN CALL UPDOMAS 


•001- 22 


BC 


IFS1398 


■002- 23 


BSA 


UPDOMAS 


•001- 24 IFS1398 




, 


25 


RGEND 


■ 


•001- 26 IFS1394 




■ 


28 U ON NORMAL EXIT, 


UTCTL IS ZEROED BEFORE 'ABORTTU' 


29 IF 


TUUTCTL+N(UTCTL) * LOMASBTrN THEN RGBEGIN 


•002- 30 


LL 


RO,TUUTCTL+N (UTCTL) 


•002-;31 


XI 


RO,LOMASBTFN 


001- 32 


BNC 


IFS1401 


33 




* IN NORMAL EXIT, UTCTL IS ZEROED BEFORE 
•ABORTTU' 


35 TAPUTL 


OW 


0(3041) * 13536 


001- 36 


NOTE 


************* THE FIRST ADDRESS OVERWRITTEN IS 003041 
********** 


40 CPATCH2 


BGNP 


0(76) § 13536 


001- 41 


BL 


XXX1405 


001- 42 


NOTE 


CPATCH2 'CSECT' 


001- 43 


NOTE 


***************** PATCH AREA BEGINS AT 000076 *************** 

* 






[ 
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f - AG1 




TAPE UTILITY MULTISCAN FUNCTION 




0:32:20 2/06/81 **** 






TAPE UTILITY ABORT FUNCTION 




CNRUTL W77D 






0114205 


-001- 01 XXX1405 


PATCHAREA 






0114205 


02 


CALL CLRMAINT 






0114205 12 000076 137020 127437 CTAPH 


-001- 03 


BSA CLRMAINT 






0114207 


04 


CALL INITTAPE 




0114207 12 000100 137020 126162 CTAPH 


-001- 05 


BSA INITTAPE 






0114211 


06 


ENDP K 13536 






0114211 12 000102 137000 020275 0003043 


-001- 07 


BL XXX1409 




?"'",. 




-001- 08 


NOTE ************ LAST PATCH ADDRESS USED IS 000103 ************** 








-001- 10 


NOTE ***** NUMBER OF PATCH WORDS USED IS 6 (DECIMAL) ******** 






0020275 


-001- 13 XXX1409 


OWCONTINUE 




'• . 


0020275 


14 


EOW H 13536 








-001- 15 


NOTE *************** THE LAST ADDRESS OVERWRITTEN IS 003042 










********** 






0020275 


19 


CALL INIT OCC * STOP BOOTSTRAP 






0020275 03 003043 137020 111240 CSYSUB 


-001- 20 


BSA INIT OCC 






0020277 


21 


CALL WPOST n WRITE PROTECT OMAS 






0020277 03 003045 137020 110453 CSYSUB 


-001- 22 


BSA WPOST 






0020301 


23 


CALL U80FLCC It RETURN OMAS TO NORMAL 




... ' 


0020301 03 003047 137020 001240 CBLM 


-001- 24 


BSA UQOFLCC 




■ 


0020303 


25 


CALL CK OST 






0020303 03 003051 137020 001750 CBLM 


-001- 26 

27 TAPUTL 


BSA CK~OST 

OW 0(?053) 03E8OOU7 




. 




-001- 28 


NOTE ************* THE FIRST ADDRESS OVERWRITTEN IS 003053 




■ 




********** 




1 


0020305 


32 


IF CF ■ THEN CALL UPDOMAS 






0020305 03 003053 154003 0020310 


-001- 33 


BC IFS1419 






0020306 03 003054 037020 003332 CBLM 


-002- 34 


BSA UPDOMAS 






0020310 


-001- 35 IFS1419 






• 


0020310 


36 
-001- 37 


EOW f»3E800147 

NOTE *************** THE LAST ADDRESS OVERWRITTEN IS 003055 
********** 






0020310 


41 


RGEND 






0020310 


-001- 42 IFS1401 










44 # PRINT STOPPED MESSAGE 






0020310 03 003056 140140 


45 L 

46 TAPUTL OW 


R6,N(UTCTL)+O(RA0) M PRINT OUT ABORT MESSAGE. 
0(3057) H 13059 




r • 




-001- 47 NOTE ************* THE FIRST ADDRESS OVERWRITTEN IS 003057 ********** 


• 
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TAPE UTILITY MULTISCAN FUNCTION 
TAPE UTILITY ABORT FUNCTION 

0020311 03 003057 037000 113700 0001116 



_BOJ_ 



01 CPATCH1 BSNP 

-001- 02 BL 

-001- 03 NOTE 

-001- 04 NOTE 



0:32:20 2/06/81 **** 
CNRUTL W77D 

0(1116) H 13059 

XXX1426 

CPATCH1 'CSECT' 

***************** PATCH AREA BEGINS AT 001116 **************** 



0113700 

0113700 11 001116 103160 

0113701 11 001117 04*160 

0113702 11 001120 040161 

0113703 11 001121 040202 

0113704 

0113704 11 001122 037000 020313 0003061 



-001- 07 XXX1426 PATCHAREA 

08 ZR R7 

09 ST R7,N(UTCTL)(RA0) tt ZERO OUT FUNCTION CODE 

10 L R7,N(UTCTL)+1(RA0) 

11 L R8,N(UTCTL)+2(RA0) 

12 ENOP H 13059 
-001- 13 BL XXX1428 

-001- 14 NOTE ************ LAST PATCH ADDRESS USED IS 001123 *************** 

-001- 15 NOTE ***** NUMBER OF PATCH WORDS USED IS 6 (DECIMAL) ******** 



0020313 

0020313 03 003061 140223 

0020314 



-001- 18 XXX1428 OWCONTINUE 

19 

20 
-001- 21 



L R9,N(UTCTL)+3(RA0) 
EOW H 13059 

NOTE *************** THE LAST ADDRESS OVERWRITTEN IS 003061 ********* 
* 



25 TAPUTL OW 
-001- 26 NOTE 



0(3062) #11845 

************* THE FIRST ADDRESS OVERWRITTEN IS 003062 ********** 



0020314 



0020314 03 003062 073053 

0020315 03 003063 100200 

0020316 03 003064 062144 

0020317 03 003065 021042 

0020320 03 003066 010246 TTYTBL 

0020321 03 003067 000346 TTYTBL 



0020322 



29 



001- 


31 » 


MESSAGE 


001- 


32 n 


mm 


002- 


33 


BSAI 


002- 


34 


VFD 


002- 


35 


VFD 


002- 


36 


VFD 


002- 


37 


VFD 


002- 


38 


VFD 


001- 


39 


NOTE 




41 


EOW 


001- 


42 


NOTE 



PRINT FMT=(WRD(T,A,P,E,U,T,I,L),WRD(S,T,0,P,P,E,D),DEC,L_X,DEC,LJ<) 



TAPEUTIL STOPPED ddddd xxxx ddddd xxxx 

PXMRY % SUBROUTINE PMRY IS IN PROGRAM TTYAPP 

1.1 2,0 1,0 3,0 1,0 1,1 1,0 2,0 1,0 3,0 
4,TTY0_LJ( 4,TTY0 DEC 4,TTY0 L X 4,TTY0 DEC 
4,TTY0_ 4,TTY0 4,TTY0 4,TTY0~ 

5.2 11,tapeuTir 
5, 11,SXT0PPED 

THE VARIABLE PORTION OF THE OUTPUT MESSAGE TO BE PRINTED IS 
CONTAINED IN GENERAL REGISTERS R6,R7,R8,R9, 
n 11845 
*************** THE LAST ADDRESS OVERWRITTEN IS 003067 ********* 
* 
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TAPE UTILITY MULTISCAN FUNCTION 

TAPE UTILITY ABORT FUNCTION 

0020322 

0020322 03 003070 156463 



01 
-001- 02 



C01 



RETURN 3 
BTSAN 3 



0:32:20 2/06/81 **** 
CNRU'L W77D 
# STOP MSF TRANSFERS 
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TAPE UTILITY MULTISCAN FUNCTION 




0:32:20 2/06/81 **** 




TAPE UTILITY PATCH AREA 




CNRUTL W77D 




01 DDELETE NOTE 1 
0020323 02 BSS 100 
0020323 03 TUPATCH 

0* OINSERT NOTE ' DO .TUPATCH 1*1,100 








" 










. 








* 








. . ' 








' 








• 








* 








.' '" .'' 
















■ 








. 












■ 
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JS1 



OFF-LINE REGISTER DUMP MULTISCAN FUNCTION 



0:32:20 2/06/81 **** 
CNRUTL W77D 



01 H THIS UTILITY PROGRAM PRINTS THE CONTENTS OF THE OFF-LINE REGISTERS 

02 H IN THE FOLLOWING FORMAT 



04 # 


RO 


R1 


R2 R3 


R4 


RS 


R6 


R7 


05 n 


R8 


R? 


R10 R11 


R12 


R13 


R14 


R15 


06 n 


DI 


DK 


HG IB 


IM 


IS 


MS 


SDR 


07 # 


SDR1 


SIR 


SIR1 0000 


0000 


0000 


0000 


0000 


06 H 


AI 


AK 


AR 


BR 








09 n 


CR 


PA 


RAR 


SAR 









12 # THE OFF-LINE PROCESSOR IS PUT IN THE MAINTENANCE STOP MODE ANP 

13 H THE REGISTERS ARE GATED TO THE MAINTENANCE CHANNEL AND TRANSMITTED TO 

14 It THE ON-LINE PROCESSOR. THEY ARE STORED IN THE 'REGBUF* SCRATCH AREA 

15 It FOR PRINTOUT. THE OFF-LINE PROCESSOR IS THEN RESTORED TO AN . PROPRIATE 

16 # STATE. 



0022611 
0022611 
0022611 

0022611 04 000000 124000 

0022612 04 000001 055012 
0022613 

0022613 



0022624 



0022613 04 000002 173053 

0022614 04 000003 101240 

0022615 04 000004 021000 

0022616 04 000005 021042 

0022617 04 000006 020016 TTYTBL 

0022620 04 000007 000215 TTYTBL 

0022621 04 000010 001175 TTYTBL 

0022622 04 000011 000346 TTYTBL 



0022623 

0022623 04 000012 156463 

0022624 

0022624 



-004- 
-002- 



20 ENTRDPRG CSECT 

21 BEGIN O 

22 IF ABTB THEN RGBEGIN 



23 

24 

25 ABORT 

26 



-001- 29 

-001- 30 

-002- 

-002- 

-002- 

-002- 

-002- 

-002- 

-002- 37 

-002- 38 

-001- 39 



31 
32 
33 
34 
35 
36 



-001- 



41 
42 

43 



TBN 
BNC 

PRINT 



ABTB,S<ABTB> 
IFS1455 



FMT=<KRD(D,M,P),HRD(R,E / G) / WRD(0 / F / L) / WRD(S,T,0 / P / P,E / D)) / PRI 
0R=2,PACTI0N=A 



MESSAGE PROTOTYPE 



A mm 



-001- 44 IFS1455 



DMP REG OFL STOPPED 

BSAI PXMRY U SUBROUTINE PMRY IS IN PROGRAM TTYAPP 

VFD 1,1 2,0 1,0 3,1 1,0 1,1 1,0 2,2 1,0 3,0 

VFD 4,TTY0_ 4,TTY0_ 4,TTY0 WRD 4,TTY0 WRD 

VFD 4,TTY0 4,TTY0 4,TTY0 4,TTY0 

VFD 5,4 11,DXMP 

VFD 5, 11,RXEG 

VFD 5, 11,0XFL 

VFD 5, 11,SXT0PPED 

NOTE THE VARIABLE PORTION OF THE OUTPUT MESSAGE TO BE PRINTED IS 

CONTAINED IN GENERAL REGISTERS 

RETURN 3 

BTSAN 3 
RGEND 
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F01 










OFF-LINE REGISTER DUMP MULTISCAN FUNCTION 










0:32:20 2/06/81 **** 


















' 




CNRUTL W77D 




0022624 










01 IF 


1STB THEN RGB^GIN 




■ 




002262* 04 


000013 


124001 


______ 


-004- 


02 


TBN 


1STB,S(1STB) 








0022625 04 


000014 


055071 


0022716 


-002- 


03 


BNC 


IFS1477 








0022626 










04 


LMCH 


MSTOP 








0022626 04 


000015 


003401 


000321 


-001- 


05 


LI 


RO,MSTOP 






0022630 








-001- 


06 


CALL 


SMCH 








0022630 04 


000017 


073027 




-002- 


07 


BSAI 


SXMCH 


1 


SUBROUTINE SMCH IS IN PROGRAM CSYSUB 




0022631 04 


000020 


131000 


010052 0010052 




08 


LAL 


RO,REGBUF,RAO 


H 


BUFFER TO STORE REGISTER VALUES 


0022633 04 


000022 


031400 


023001 0023001 




09 


LAL 


R0,RTNTBL16,RA1 


It 


TABLE OF MICRO INSTRUCTIONS TO GET 
OFF-LINE 16 BIT REGISTERS 




0022635 04 


000024 


003421 


000037 




11 


LI 


INDEX, 31 








0022637 










12 GTNXT16 








■ 




0022637 04 


000026 


142441 






13 


LX 


R2 / INDEX(RA1) 




■ 


0022640 04 


000027 


007402 






14 


LSR 


MCHTR,R2 


n 


LOAD MICROINSTRUCTION INTO MCH 




0022641 










15 


LMCH 


LDMIRL 


# 


GATE REGISTER INTO OFF-LINE MCHB 




0022641 








-001- 


16 


CALL 


SLDMIRL 




' 


0022641 04 


000030 


111075 CSYSUB 


-002- 


17 


BSA 


SLDMIRL 








0022643 










18 


LMCH 


RTNMCHB 


tt 


TRANSMIT TO ON-LINE 


0022643 04 


000032 


103401 


000261 


-001- 


19 


LI 


RO,RTNMCHB 






0022645 








-001- 


20 


CALL 


SMCH 






0022645 04 


000034 


073027 




-002- 


21 


BSAI 


SXMCH 


n 


SUBROUTINE SMCH IS IN PROGRAM CSYSUB 


0022646 04 


000035 


112403 


______ 




22 


UNPK 


MCHB 




. 




0022647 04 


000036 


046061 


______ 




23 


STX 


R3,INDEX(RA0> 








0022650 04 


000037 


036020 


022637 0022637 




24 


BX 


INDEX, 6TNXT16 




■ 




0022652 04 


000041 


031000 


010112 0010112 




25 


LAL 


R0,REGBUF+32,RA0 






0022654 04 


000043 


031400 


023041 0023041 




26 


LAL 


R0,RTNTBL20,RA1 


n 


TABLE OF MICRO INSTRUCTIONS TO GET 
OFF-LINE 20 BIT REGISTERS 


0022656 04 


000045 


003421 


000007 




28 


LI 


INDEX,7 




• 


1-22660 










29 GTNXT20 












0022660 04 


000047 


142441 


______ 




30 


LX 


R2, INDEX (RAD 




. ■ ' , ' 




0022661 04 


000050 


007402 






31 


LSR 


MCHTR,R2 


n 


LOAD MICROINSTRUCTION INTO MCH 




0022662 










32 


LMCH 


LDMIRL 


n 


GATE REGISTER INTO OFF-LINE MCHB 




0022662 








-001- 


33 


CALL 


SLDMIRL 








0022662 04 


000051 


037020 


111075 CSYSUB 


-002- 


34 


BSA 


SLDMIRL 








0022664 










35 


LMCH 


RTNMCHB 


* 


TRANSMIT TO ON-LINE 




0022664 04 


000053 


103401 


000261 


-001- 


36 


LI 


RO, RTNMCHB 








0022666 








-001- 


37 


CALL 


SMCH 








0022666 04 


000055 


073027 


------ 


-002- 


38 


BSAI 


SXMCH 


n 


SUBROUTINE SMCH IS IN PROGRAM CSYSUB 




0022667 04 


000056 


112403 






39 


UNPK 


MCHB 








0022670 04 


000057 


006101 






J? 


LR 


R4, INDEX 








0022671 04 


000060 


010517 


______ 




RLN 


R4,1 


n 


ALLOW FOR 20 BIT ENTRIES 




0022672 04 


000061 


046044 






42 


STX 


R2,R4(RA0) 


n 


STORE UPPER 4 BITS 




0022673 04 


000062 


004501 


______ 




♦3 


AN 


R4,1 






. 


0022674 04 


000063 


046064 






44 


STX 


R3,R4(RA0) 


H 


STORE LOW 16 BITS 




0022675 04 


000064 


036020 


022660 0022660 




45 


BX 


INDEX, GTNXT20 








0022677 










46 


CALL 


INIT OCC 


K 


PUT OFF-LINE CC BACK IN THE HALT LOOP 




0022677 04 


000066 


037020 


111240 CSYSUB 


-001- 


47 


BSA 


INIT_OCC 








1 ' 
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• 




OFF-LIhS REGISTER DUMP MULTISCAN FUNCTION 


0:32:20 2/06/81 **** 


t . .' ' 




CNRUTL H77D 
01 n PRINT HEADER 


- 


1 


0022701 


02 PRINT FMT«<WRD(D,M,P),WRD(R,E,G),WRD(0,F,L>),LINK»=YES,PRI0R=3,PACTI 
ON=M 






-001- 


05 * MESSAGE PROTOTYPE 




■ 


-001- 


06 # M mm DMP REG OFL 








07 BSAI PXMRY * SUBROUTINE PMRY IS IN PROGRAM TTYAPP 








08 VFD 1,1 2,0 1,0 3,2 1,0 1,1 1,0 2,3 1,1 3,0 




. 




09 VFD 4,TTY0 4,TTY0 4,TTY0 4,TTY0 WRD 






0022704 0* 000073 021042 -002- 


10 VFD 4,TTY0 4,TTY0~ 4,TTY0~ 4,TTY0~ 






0022705 04 000074 014016 TTYTBL -002- 


11 VFD 5,3 117DXMP - - - 






0022706 04 000075 000215 TTYTBL -002- 


12 VFD 5, 11,RXEG 




, 




13 VFD 5, 11,0XFL 




. 


-001- 


1* NOTE THE VARIABLE PORTION OF THE OUTPUT MESSAGE TO BE PRINTED IS 




■ 




CONTAINED IN GENERAL REGISTERS 




• ' 


-001- 


16 NOTE THIS IS THE FIRST SEGMENT OF A LINKED MESSAGE 






0022710 04 000077 134400 043102 CTSO 


17 STL R0,LINKWRD 






0022712 04 000101 003000 


18 ZR RO 






0022713 04 000102 034400 043103 CTSP 


19 STL R0,RGCOUNT 






0022715 


20 RETURN 2 






0022715 04 000104 056462 -001- 


21 BTSAN 2 






0022716 


22 RGEND 






0022716 -001- 


23 IFS1477 






0022716 04 000105 130400 043102 CTSO 


27 LL RO,LINKWRD 




1 


0022720 


28 CALL LINKRDY 






0022720 04 000107 037021 125021 TTYAPP -001- 


29 BSA LINKRDY 






0022722 04 000111 156000 


30 BPAX RO 






0022723 04 000112 153670 0022613 


31 B ABORT 






0022724 


32 RETURN 2 H LINK NOT READY 






0022724 04 U00113 156462 -001- 


33 BTSAN 2 




; .." ' 


0022725 04 000114 130520 043103 CTSD 


34 LL RGCOUNTR,RGCOUNT 






0022727 04 000116 006005 


35 LR RO,RGCOUNTR 




■ 


0022730 04 000117 004410 


36 AN R0,8 n INCREMENT COUNTER 






0022731 04 000120 034400 043103 CTSO 


37 STL RO,RGCOUNT 




. 


0022733 04 000122 031400 010052 0010052 


38 LAL R0,REGBUF,RA1 






0022735 04 000124 001 76*; 


39 AR R15,RGC0UNTR 






0022736 04 000125 055002 0012740 


40 BNC NOFLOW 






0022737 04 000126 004741 


41 AN RH,1 






0022740 


42 NOFLOW 






0022740 


43 CALL CETRG 






0022740 04 000127 137020 023051 0023051 -001- 


44 BSA GfTRG 






0022742 04 000131 130400 043102 CTSD 


45 LL RO,LINKWRD 




' 


0022744 04 000133 024125 


46 TBN RGC0UNTR,5 * 16 BIT REGISTERS DONE 








47 BNC NXT16 




■ 


0022746 04 000135 024124 


48 TBN RGC0UNTR,4 # LAST LINK 




■' 




49 BC LASTLNK 
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- 



























, , A02 


OFF- 


.INE REGISTER DUMP MULTISCAN FUNCTION 










0:32:20 2/06/81 **** 


















CNRUTL W77D 


0022750 








01 








* 20 BIT REGISTERS TO BE PRINTED, NOT LAST 
LINK 


0022750 








03 






LPRINT 


FMT=<WRD(CR,LF),WRD(SP,SP,SP,SP),H C,L X,H C,L X,H C,L X,H C,L X 
),PRI0R«3,LINK=YES,ZSPRS=N0 








-001- 


06 


* 


MESSAGE PROTOTYPE 








-001- 


07 


§ 






CRLF SPSPSPSP xxxxx xxxxx xxxxx xxxxx 






-002- 


08 






BSAI 


LKPMRY * SUBROUTINE LPMRY IS IN PROGRAM TTYAPP 


0022751 


04 000140 110270 




-002- 


09 






VFD 


1,1 2,0 1,1 3,0 1,0 1,1 1,0 2,3 1,1 3,0 


0022752 


04 000141 062545 




-002- 


10 






VFD 


4,TTY0_L_X 4,TTY0 H C 4,TTY0 L X 4,TTY0 H C 


0022753 


04 000142 062745 




-002- 


11 






VFD 


4,TTY0 L_X 4,TTY0 H C 4,TTY0~L~X 4,TTY0~H~C 


0022754 


04 000143 010000 


- TTYTBL 


-002- 


12 






VFD 


5,2 11, qt 


0022755 


04 000144 000000 


- TTYTBL 


-002- 
-001- 

-001- 


13 

14 

16 






VFD 
NOTE 

NOTE 


5, 11,zzzz 

THE VARIABLE PORTION OF THE OUTPUT MESSAGE TO BE PRINTED IS 

CONTAINED IN GENERAL REGISTERS R6,R7,R8,R9,R10,R11 ,R12,R13, 
THIS IS A SEGMENT OF A LINKED MESSAGE 


0022756 








17 






RETURN 


2 # RETURN TO BLM 


0022756 


04 000145 156462 




-001- 


18 






BTSAN 


2 


0022757 








19 


LAST 


ft LAST LINK, PRINT HEADER 


0022757 








20 






LPRINT 


FMT=<WRD(CR,LF),WRD(SP,SP,SP,SP),WRD(D,M,P),WRD<R,E,G),WRD<0,F,L 
),WRD(C,0,M,P,L)),PRI0R=3, PACTIONS 




• 




-001- 


23 


§ 


MESSAGE PROTOTYPE 








-001- 


24 


§ 




M 


CRLF SPSPSPSP DMP REG OFL COMPL 


0022757 


04 000146 173054 




-002- 


25 






BSAI 


LXPMRY » SUBROUTINE LPMRY IS IN PROGRAM TTYAPP 


0022760 


04 000147 102260 




-002- 


26 






VFD 


1,1 2,0 1,0 3,2 1,0 1,1 1,0 2,3 1,0 3,0 


0022761 


04 000150 000000 




-002- 


27 






VFD 


4,TTY0_HRD 4,TTY0 WRD 4,TTY0 WRD 4,TTY0 WRD 


0022762 


04 000151 021042 




-002- 


28 






VFD 


4,TTY0 4,TTY0 4,TTY0 4,TTY0 


0022763 


04 000152 030000 


- TTYTBL 


-002- 


29 






VFD 


5,6 11,qt 


0022764 


04 000153 000000 


- TTYTBL 


. -002- 


30 






VFD 


5, 11,zzzz 


0022765 


04 000154 000016 


- TTYTBL 


-002- 


31 






VFD 


5, 11,DXMP 


0022766 


04 000155 000215 


- TTYTBL 


-002- 


32 






VFD 


5, 11,RXEG 


0022767 


04 000156 001175 


- TTYTBL 


-002- 


33 






VFD 


5, 11,0XFL 


0022770 


04 000157 000302 


- TTYTBL 


-002- 
-001- 

-001- 


34 
35 

37 






VFD 
NOTE 

NOTE 


5 11 CXOMPL 

THE VARIABLE PORTION OF THE OUTPUT MESSAGE TO BE PRINTED IS 

CONTAINED IN GENERAL REGISTERS 
THIS IS THE LAST SEGMENT OF A LINKED MESSAGE 


0022771 








38 






RETURN 


3 n FINAL FINISH 


0022771 


04 000160 156463 




-001- 


39 






BTSAN 


3 


0022772 








43 


NXT16 






0022772 








44 






LPRINT 


FMT=(WRD(CR,LF),WRD(SP,SP,SP,SP),L_X,L_X,L_X,L X,L X,L X,L X,L X 
),PRI0R=3,LINK=YES,ZSPRS=N0 


■ 

COMMON NONRESIDENT UTILITIES 










• 


_ ■ ■ 
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SEE TRADE SECRET 
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B02 



OFF-LINE REGISTER DUMP MULTISCAN FUNCTION 



0:32:20 



2/06/81 **** 



CNRUTL 



W770 



0022772 0* 000161 173054 

0022773 0* 000162 110270 -■■ 

0022774 04 000163 063146 

0022775 04 000164 063146 

0022776 04 000165 010000 TTYTBL 

0022777 04 000166 000000 TTYTBL 



0023000 

0023C00 04 000167 156462 



-001- 
-001- 
-002- 
-002- 
-002- 
-002- 
-002- 
-002- 
-001- 

-001- 

-001- 



01 U MESSAGE PROTOTYPE 

02 # CRLF SPSPSPSP xxxx xxxx xxxx xxxx xxxx xxx* xxxx xxxx 

03 BSAI LXPMRY # SUBROUTINE LPMRT IS IN PROGRAM TTVAPP 

04 VFD 1,1 2,0 1,1 3,0 1,0 1,1 1,0 2,3 1,1 3,0 

05 VFD 4,TTY0_L_X 4,TTY0 L X 4,TTY0 L X 4,TTY0 L X 

06 VFD 4,TTY0_L X 4,TTY0 L~X 4,TTY0~L~X 4,TTY0~L~X 

07 VFD 5,2 11,qt 

08 VFD 5, 11,zizz 

09 NOTE THE VARIABLE PORTION OF THE OUTPUT MESSAGE TO BE PRINTED IS 

CONTAINED IN GENERAL REGISTERS R6,R7,R8,R9,R10,R11 ,R12,R13, 

11 NOTE THIS IS A SEGMENT OF A LINKED MESSAGE 

12 RETURN 2 

13 BTSAN 2 
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C02 



OFF-LINE REGISTER DUMP MULTISCAN FUNCTION 



0023001 

0023001 04 

0023002 04 

0023003 04 

0023004 04 

0023005 04 

0023006 04 

0023007 04 

0023010 04 

0023011 04 

0023012 04 

0023013 04 

0023014 04 

0023015 04 

0023016 04 

0023017 04 

0023020 04 

0023021 04 

0023022 04 

0023023 04 

0023024 04 

0023025 04 

0023026 04 

0023027 04 

0023030 04 

0023031 04 

0023032 04 

0023033 04 

0023034 04 

0023035 04 

0023036 04 

0023037 04 

0023040 04 
0023041 

0023041 04 

0023042 04 

0023043 04 

0023044 04 

0023045 04 

0023046 04 

0023047 04 
0023050 04 



0001 70 
000171 
000172 
000173 
000174 
000175 
000176 
000177 
000200 
000201 
000202 
000203 
000204 
000205 
000206 
000207 
000210 
000211 
000212 
000213 
000214 
000215 
000216 
000217 
000220 
000221 
000222 
000223 
000224 
000225 
000226 
000227 



000230 
000231 
000232 
000233 
000234 
000235 
000236 
000237 



114523 
114525 
114526 
114531 
114532 
114534 
114543 
114545 
114546 
114551 
114552 
114554 
114507 
114513 
114515 
114516 
114646 
114645 
114465 
114706 
114607 
114613 
114615 
114456 
114455 
114436 
114435 
114760 
114760 
114760 
114760 
114760 

114643 
114634 
114561 
114742 
114463 
114626 
114427 
114625 



01 


RTNTBL16 






03 


VFD 


8,MCHBXT 


8,R0XT 


04 


VFD 


8,MCHBXT 


8,R1XT 


05 


VFD 


8,MCHBXT 


8,R2XT 


06 


VFD 


8,MCHBXT 


8,R3XT 


07 


VFD 


8,MCHBXT 


8,R4XT 


08 


VFD 


8,MCHBXT 


8,R5XT 


09 


VFD 


8,MCHBXT 


8,R6XT 


10 


VFD 


8,MCHBXT 


8,R7XT 


11 


VFD 


8,MCHBXT 


8,R8XT 


12 


VFD 


8,MCH8XT 


8,R9XT 


13 


VFD 


8,MCHBXT 


8,R10XT 


14 


VFD 


8,MCHBXT 


8,R11XT 


15 


VFD 


8,MCHBXT 


8,R12XT 


16 


VFD 


8,MCHBXT 


8,R13XT 


17 


VFD 


8,MCHBXT 


8,R14XT 


18 


VFD 


8,MCHBXT 


8,R15XT 


19 


VFD 


8,MCHBXT 


8,DIXF 


20 


VFD 


8,MCHBXT 


8,DKXF 


21 


VFD 


8,MCHBXT 


8,HGXF 


22 


VFD 


8,MCHBXT 


8,IBXF 


23 


VFD 


8,MCHBXT 


8,IMXF 


24 


VFD 


8,MCHBXT 


8,ISXF 


25 


VFD 


8,MCHBXT 


8,MSXF 


1? 


VFD 


8,MCHBXT 


8,SDRXF 


VFD 


8,MCHBXT 


8,SDR1XF 


28 


VFD 


8,MCHBXT 


8,SIRXF 


29 


VFD 


8,MCHBXT 


8,SIR1XF 


30 


VFD 


8,MCHBXT 


8,N0PXF 


31 


VFD 


8,MCHBXT 


8,N0PXF 


32 


VFD 


8,MCHBXT 


8,N0PXF 


33 


VFD 


8,MCHBXT 


8,N0PXF 


34 


VFD 


8,MCHBXT 


8,N0PXF 


35 


RTNTBL20 






37 


VFD 


8,MCHBXT 


8,AIXF 


38 


VFD 


8,MCHBXT 


8,AKXF 


39 


VFD 


8,MCHBXT 


8,ARXF 


40 


VFD 


8,MCHBXT 8,BRXF 


41 


VFD 


8,MCHBXT 


8,CRXF 


42 


VFD 


8,MCHBXT 


8,PAXF 


43 


VFD 


8,MCHBXT 


8,RARXF 


44 


VFD 


8,MCHBXT 


8,SARXF 



0:32:20 2/06/81 **** 

CNRUTL W77D 

TABLE OF MICRO INSTRUCTIONS TO RETRIEVE 
16 BIT REGISTERS 



t TABLE OF MICROINSTRUCTIONS TO RETRIEVE 
OFF-LINE 20 BIT REGISTERS 
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P02 



OFF-LINE REGISTER DUMP MULTISCAN FUNCTION 
OFF-LINE REGISTER DUMP SUBROUTINE 



0023051 
0023051 
0023051 
0023052 
0023053 
002305* 
0023055 
0023056 
0023057 
0023060 
0023061 
0023061 



04 000240 
04 000241 
04 000242 
04 000243 
04 000244 
04 000245 
04 000246 
04 000247 

04 000250 



140540 
040561 
040602 
040623 
040644 
040665 
040706 
040727 

056400 



0:32:20 2/06/81 **** 
CNRUTL M770 



-001- 



01 GETRG 






02 


BEGIN 


O 


03 




R6,0(RA1) 


04 




R7,1(RA1) 


05 




R8,2(RA1) 


06 




R9.3(RA1> 
R10,4(RA1) 


07 




08 




R11,5(RA1) 


09 




R12,6<RA1) 


10 




R13,7(RA1> 


11 


RETURN 




12 


BTSA 
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E02 



COMPARE MAIN STORE MULTISCAN FUNCTION 



MAIN FUNCTION 



0023061 
0023061 



01 
02 
03 
04 
05 
06 
07 
08 
09 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 



0:32:20 2/06/81 **** 
CNRUTL W77D 



# THIS UTILITY PROGRAM LOOPS THRU MAIN STORE WORDS, UNDER A VARIETY 

# OF OPTIONS, COMPARING THE ON-LINE AND OFF-LINE DATA TO THEMSELVES OR 

# A CONSTANT. THE COMPARE OPERATIONS MAT USE AN OPTIONAL DATA 

If MASK AND/OR BEGINNING ADDRESS. THE ON-LINE TO OFF-LINE COMPARE WILL 

# ALSO ACCEPT A FINAL ADDRESS. PROGRESS IS DISPLAYED ON THE 

# 3A CC CONTROL PANEL AND SSP LAMPS. 

» THE COMPARE OPERATION CAN BE ABORTED BY TYPING 'STOP:UTIL!' 



MESSAGE FORMATS 

CMPR:MAS arg;options :operand1 operand2 mask! 

arg ■ TYPE OF COMPARE 

(blank) - ONLINE TO OFFLINE (DEFAULT) 
ONL - ONLINE TO CONSTANT 

- OFFLINE TO CONSTANT 
ACTION OPTIONS 

- DO NOT SKIP TEMPORARY STORE 

- GIVE MAJOR ALARM ON FIRST MISMATCH AND ABORT 

COMP - ALLOW COMPLEMENT-CORRECTED DATA WORDS ON DATA READS 
operandi * FIRST ADDRESS (DEFAULT ■ 0) 

LAST ADDRESS (ONLINE TO OFFLINE); OR CONSTANT (OTHERWISE) 
COMPARE MASK (DEFAULT ■ ALL BITS) 



OFL 

options ■ 

ALL 

ALM 



operand2 
mask 



002055* 
0020554 
C.j?0554 

0020554 05 000000 124000 

0020555 05 000001 054341 



0021116. - 



0020556 05 000002 031400 043102 CTSD 

0020560 

0020560 05 000004 037020 110750 CSYSUB 



0020562 05 000006 107312 

0020563 05 000007 007333 

0020564 05 000010 006350 

0020565 05 000011 006371 

0020566 05 000012 003200 

0020567 05 000013 014146 
0020570 05 000014 030200 





26 


CMPRPROG CSECT 






27 




BEGIN () 






28 




IF ABTB THEN B CMPRSTOP 




004- 


29 




TBN ABTB, S (ABTB) 




002- 


30 

31 




BC CMPRSTOP 
LAL R0,PAGSCR,RA1 






32 




CALL L2 13 U 


GET TTY 


001- 


33 




BSA L2 13 






34 


H 


R6 » ONL/OFL/(ZERO) 






35 


n 


R7 ■ ACTION OPTIONS 






36 


n 


R8,R9 = FIRST ADDRESS 






37 


» 


R10,R11 = LAST ADDRESS OR CONSTANT 






38 


u 


R12,R13 = MASK 






40 


* 


SET UP REGISTERS FOR COMPARE LOOP 






41 




EXR RA0,R10 n 


PUT MAS 




42 




EXR RA0+1,R11 






43 




LR RA1,R8 






44 




LR RA1+1,R9 






45 


H 


SET UP FLAG (OPTIONS) REG. 






46 




ZR ON OFF 






47 




TZ R6 






48 




ICF ON_OFF,S(ON OFF) 






49 




SPELL R6,(0,N,L),0P=CI 





INPUTS 
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„ F02 


■ 


COMPARE MAIN STORE MULTISCAN FUNCTION 


0:32:20 2/06/81 **** 






MAIN FUNCTION 


CNRUTL V77D 






0020571 05 000015 003545 001515 TTYTBL 

0020573 05 000017 030201 

0020574 05 000020 003545 001175 TTYTBL 
0020576 05 000022 030202 


-001- 01 CI R6,0XNL 

02 ICF ON CON, S (ON CON) 

03 SPELL R6,(0,F,L),0P=CI 
-001- 04 CI R6,0XFL 

05 ICF OFF CON,S(OFF CON) 

06 CMPRPROG OH 0(23") # 12634 

-001- 07 NOTE ************* THE FIRST ADDRESS OVERWRITTEN IS 000023 ********** 






0020577 05 000023 024166 TTYTBL 

0020600 


10 TBN R7,S(ALL) 

11 EOW H 12634 

-001- 12 NOTE *************** THE LAST ADDRESS OVERWRITTEN IS 000023 ********* 

* 








16 ICF ALL OP,S(ALL_OP) 

17 CMPRPROG OW 0(2?) H 12634 

-001- 18 NOTE ************* THE FIRST ADDRESS OVERWRITTEN IS 000025 ********** 




. 


0020601 05 000025 024172 TTYTBL 

0020602 


21 TBN R7,S(ALM) 

22 EOW H 12634 

-001- 23 NOTE *************** THE LAST ADDRESS OVERWRITTEN IS 000025 ********* 

* 






0020602 05 000026 030204 


27 ICF ALM OP,S(ALM_OP) 

28 CMPRPROG OW 0(27) # 12634 

-001- 29 NOTE ************* THE FIRST ADDRESS OVERWRITTEN IS 000027 ********** 






0020603 05 000027 024171 TTYTBL 

0020604 


32 TBN R7,S(C0MP) 

33 EOW n 12634 

-001- 34 NOTE *************** THE LAST ADDRESS OVERWRITTEN IS 000027 ********* 

* 




V 

i 


0020604 05 000030 030205 

0020605 05 000031 030402 021637 TDATA 

0020607 05 000033 024004 TDATA 

0020610 05 000034 030210 

i 


38 ICF COMP OP,S(COMP OP) 

39 LL RO,STRLIM 

40 TBN . RO,S(WOSTR) 

41 ICF WIDE_OP,S(WIDE_OP) 

43 # R2,R3 = ONLINE DATA 

44 n R4,R5 = OFFLINE DATA 

45 K R6,R7 " WORK REGISTERS 

46 »V R8 = FLAG REGISTER 

47 # R10,R11 «= MASK 

48 K RAO = LAST ADDRESS OR CONSTANT 

49 It RA1 = CURRENT ADDRESS 
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602 



COMPARE MAIN STORE MULTISCAN FUNCTION 
MAIN FUNCTION 



0:32:20 



2/06/81 **** 



0020611 
0020611 
0020612 
0020613 
0020614 
0020614 
0020616 
0020617 
0020617 
0020620 
0020621 
0020621 
0020622 
0020623 
0020624 
0020625 
0020625 
0020625 
0020625 
0020625 
0020625 
0020627 
0020630 
0020630 
0020632 
0020633 
0020634 
0020635 
0020635 
0020635 
0020635 



05 000035 024210 

05 000036 054002 0020614 

05 000037 006253 

05 000040 116552 000377 
05 000042 006173 

05 000043 014167 

05 000044 055005 0020625 

05 000045 014146 

05 000046 055003 0020625 

05 000047 015652 

05 000050 015673 



05 000051 103565 177777 
05 000053 055006 



05 000054 003545 000377 
05 000056 055003 — 
05 000057 003240 — 
05 000060 003260 — 



0020635 



-003- 
-001- 
-001- 
-001- 



-002- 
-001- 

-002- 
-001- 



-001- 

-001- 

-002- 
0020635 -001- 



-002- 
-001- 



-001- 
-001- 



CNRUTL 



H77D 



LRM 
LR 

IF 



01 IF 

02 

03 

04 

05 IFS1588 

06 

07 

08 

09 

10 

11 

12 

13 

14 

15 

16 

17 IFS1593 

18 

19 IFS1591 

20 IF 
21 

22 

23 

24 

25 

26 

27 

28 

29 IFS1599 

30 

31 



WIDE OP = THEN LR R10,R11 
TBN WIDE OP,S(WIDE OP) 
BC IFS15"88 
LR R10,R11 # 

R6,R10,0(377) 

R7,R11 

R7 = THEN RGBEGIN 
TZ R7 
BNC IFS1591 
IF R6 ■ THEN RGBEGIN 
TZ R6 
BNC IFS1593 
COM R10 
COM R11 
RGEND 



RGEND 



CI 



R7 



IFS1597 



IF 

CI 

BNC 

ZR 

ZR 

RGEND 

RGEND 



> 0(177777) THEN RGBEGIN 
R7,0 (177777) 
IFS1597 

R6 = 0(377) THEN RGBEGIN 
R6,0(377) 
IFS1599 
R10 
R11 



0020635 05 

0020636 05 

0020637 05 

0020640 05 
0020641 

0020641 05 

0020642 05 

0020643 05 

0020645 05 
0020646 

0020646 05 
0020647 

0020647 05 
0020651 05 
0020653 
0020653 



000061 106054 

000062 006075 

000063 006114 

000064 006135 

000065 024200 

000066 055005 0020647 

000067 016414 000017 

000071 014415 

000072 055005 0020653 

000073 130702 021637 TDATA 
000075 030722 021640 TDATA 



33 H ASSUME RAO ■ CONSTANT 



-003- 
-001- 



-002- 



-001- 



34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 DEFAULTRAO 

46 

47 

48 

49 IFS1607 



LR 
LR 
LR 
LR 
IF 



LRM 
OR 

IF 



R2,RA0 

R3,RA0+1 

R4,RA0 

R5,RA0+1 

0N_OFF « THEN B DEFAULTRAO H CONSTANT OPTION 
TBN ON OFF,S(ON OFF) 
BNC DEFAULTRAO 

R0,RA0,MSK(4> 

R0,RAO+1 

CF THEN RGBEGIN 
BNC IFS1607 



LL 
LL 

RGEND 



RAO,STRLIM 
RA0+1,STRLIM+1 
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A03 


COMPARE MAIN STORE NULTISCAN FUNCTION 










0:32:20 2/06/81 **** 


MAIN 


FUNCTION 












CNRUTL W77D 


0020653 


OS? 000077 103702 


000017 




01 


NI 




RA0,MSK(4> 


0020655 


05 000101 003742 


000017 




02 


NI 




RA1,MSK(4) 


0020657 








03 


CALL 


CMPR20 


0020657 


05 000103 037020 


110154 CSYSUB 


-001- 


04 


BSA 




CMPR20 










05 


CMPRPROG OW 


0(105),0(107> § 12634 






■ 


-001- 


06 


NOTE 


************* THE FIRST ADDRESS OVERWRITTEN IS 000105 ********** 


0020661 








09 


IF 




RO = 2 THEN B CMPRSTOP # INPUT ERROR 


0020661 


05 000105 103405 


000002 


-002- 


10 




CI 


R0,2 


0020663 


05 000107 054233 


0021116 


-001- 


11 




BC 


CMPRSTOP 


0020664 


05 000110 003642 


0007-77 




12 


NI 




R10,MSK(8) 


0020666 








13 


EOW 




n 12634 








-001- 


14 


NOTE 


*************** THE LAST ADDRESS OVERWRITTEN IS 000111 ********* 
* 


0020666 








18 


IF 




-> WIDE OP THEN ZR R10 


0020666 


05 000112 024210 




-004- 


19 




TBN 


WIDE OP, S (WIDE OP) 


0020667 


05 000113 054002 


0020671 


-002- 


20 




BC 


IFS1&17 


0020670 


05 000114 003240 




-002- 


21 




ZR 


R10 n 


0020671 






-002- 


22 


IFS1617 






0020671 


05 000115 153004 


0020675 




23 


B 




CHECKTS 


0020672 








25 


CMPRLOOP 






0020672 


05 000116 117760 


037400 




26 


CIRM 


R15,0,0,MSK(6) § REAL TIME BREAK ON EVERY 64 WORDS 


0020674 


05 000120 055020 


0020714 




27 


BNC 




GOAHEAD 


0020675 








28 


CHECKTS 






0020675 








29 


CALL 


WAITX U REAL TIME BREAK 


0020675 


05 000121 137020 


-001- 


30 


BSA 




WAITX 


0020677 


05 000123 155217 


0021116 




31 


BNC 




CMPRSTOP 


0020700 








32 


IF 




- ALL OP THEN RGBEGIN 


0020700 


05 000124 024203 




-004- 


33 




TBN 


ALL OP, S (ALL OP) 


0020701 


05 000125 054013 


0020714 


-002- 


34 




BC 


IFST622 


0020702 








35 




CALL RGCHKADR 


0020702 


05 000126 073036 




-001- 


36 




BSAI rgchkAdr U SUBROUTINE RGCHKADR IS IN PROGRAM CSYSUB 


0020703 








37 




IF 


RO = 2 THEN RGBEGIN 


0020703 


05 000127 103405 


000002 


-002- 


38 




CI 


R0,2 


0020705 


05 000131 055007 


0020714 


-001- 


39 




BNC 


IFS1626 


0020706 


05 000132 003763 


007777 




40 




01 


R15,0(10000)-1 11 JAM TO 4K BOUNDARY 


0020710 








41 




CALL CMPR20 


0020710 


05 000134 037020 


110154 CSYSUB 


-001- 


42 




BSA 


CMPR20 


0020712 








43 




IF 


CF ■ THEN B CMPRCOMPL 


0020712 


05 000136 155201 


0021113 


-001- 


44 




BNC 


CMPRCOMPL 


0020713 


05 000137 053173 


0021106 




45 




B 


ADVANCE 


0020714 








46 




RGEND 


0020714 






-001- 


47 


IFS1626 






0020714 








48 




RGEND 


0020714 






-001- 


49 


IFS1622 
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B03 




COMPARE MAIN STORE MULTISCAN FUNCTION 




0:32:20 2/06/81 **** 


MAIN FUNCTION 




- 


CNRUTL W77D 






04 H ADDRESS IS GOOD 


- READ MAS WORD 


002071* 




05 GOAHEAD 




0020714 05 000140 


103602 177477 


06 NI ONI 


_ERR,-(M(ONL ERR)+M(OFL ERR)) * RESET ERROR FLAGS 


0020716 




07 IF - OFF CON THEN RGBEGIN 


0020716 05 000142 


024202 


-004- 08 TBN 


OFF CON,S(OFF CON) 


0020717 05 000143 


054027 0020746 


-002- 09 BC 

10 * READ ONLINE MAS 


IFS1633 


0020720 




11 S8IN 


■.'... 


0020720 05 000144 


013002 


-001- 12 MIS 


2 


0020721 05 000145 


105722 


-001- 13 DATA 


35794 


0020722 




14 L ONL 


0(RA1),AC=N0 U READ ONLINE WITH NO COM-CORRECT 


0020722 05 000146 


076020 


-001- 15 STAF 


0(RA1) 


0020723 05 000147 


106260 


-001- 16 DATA 


B(1000110010110000) 


0020724 05 000150 


030206 


17 ICF 


ONL ERR, S (ONL ERR) 


0020725 




18 IF 


CF = 1 THEN RGBEGIN 


0020725 05 000151 


055006 0020733 


-001- 19 BNC 


IFS1638 


0020726 




20 IF 


COMP OP THEN RGBEGIN 


0020726 05 000152 


024205 


-004- 21 TBN 


COMP OP, S (COMP OP) 


0020727 05 000153 


055004 0020733 


-002- 22 BNC 


IFS16~40 


0020730 




23 L ONL 


0(RA1),AC=YES it TRY ONLINE READ AGAIN WITH COM-CORRECT 


0020730 05 000154 


076020 


-001- 24 STAF 


0(RA1) 


0020731 05 000155 


136260 


-001- 25 DATA 


9(1011110010110000) 


0020732 05 000156 


030206 


26 ICF 


ONL_ERR,S(ONL_ERR) 


0020733 




27 RGEND 




0020733 




-001- 28 IFS1640 




0020733 




29 RGEND 




0020733 




-001- 30 IFS1638 




0020733 05 000157 


106060 


31 LR 


R3,R0 * LOAD LOW 16 BITS 


0020734 




32 IF 


WIDE OP THEN RGBEGIN 


0020734 05 000160 


024210 


-004- 33 TBN 


WIDE OP,S(WIDE OP) 


0020735 05 000161 


055004 0020741 


-002- 34 BNC 


IFS1547 


0020736 




35 MIMODE 


L R2,SDR1 * LOAD HIGH 8 BITS 


0020736 05 000162 


013000 


-001- 36 MIS 
-002- 37 VFD 





0020737 05 000163 


053055 


8,R2XT 8,SDR1XF 


0020740 05 000164 


010450 


38 RRN 


R2,8 H POSITION HIGH BITS OF WIDE STORE 


0020741 




39 RGEND 




0020741 




-001- 40 IFS1647 




0020741 05 000165 


104400 


41 ZCF 


H INSURE CF ■ BEFORE ZBIN 


0020742 




42 ZBIN 




0020742 05 000166 


013002 


-001- 43 MIS 


2 


0020743 05 000167 


107322 


-001- 44 DATA- 


36562 






45 # CHECK IF READ CAUSED AN INTERRUPT (NO MAS RESPONSE) 


0020744 




46 IF 


CF «= 1 THEN SBN ONL ERR, S (ONL ERR) 


0020744 05 000170 


055002 0020746 


-001- 47 BNC 


IFS1654 


0020745 05 000171 


026206 


-001- 48 SBN 


0NL_ERR,S(ONL_ERR) # 


0020746 




-001- 49 IFS1654 
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C03 




COMPARE MAIN STORE MULTISCAN 


FUNCTION 






0:32:20 2/06/81 **** 


MAIN 


FUNCTION 










CNRUTL W770 


00207*6 








01 


RGEND 




0020746 








-001- 02 IFS1633 






0020746 








06 IF 


^ 


0N_CON THEN RGBEGIN 


0020746 


05 000172 


124201 




-004- 07 


TBN 


0N_CON,S(ON CON) 


0020747 


05 000173 


054027 


0020776 


-002- 08 


BC 


IFS1657 










0? U READ OFFLINE MAS 


0020750 








10 


SBIN 




0020750 


05 000174 


013002 




-001- 11 


MIS 


2 


0020751 


05 000175 


105722 




-001- 12 


DATA 


35794 


0020752 








13 


LOS 


0(RA1),AC=N0 U READ OFFLINE WITH NO COM-CORRECT 


0020752 05 000176 076020 




-001- 14 


STAF 


0(RA1) 


0020753 


05 000177 


106160 




-001- 15 


DATA 


B(1000110001110000) 


0020754 


05 000200 


030207 




16 


ICF 


OFL ERR, S (OFL ERR) 


0020755 








17 


IF 


CF ■ 1 THEN RGBEGIN 


0020755 


05 000201 


055006 


0020763 


-001- 18 


BNC 


IFS1662 


0020756 








19 


IF 


COMP OP THEN RGBEGIN 


0020756 


05 000202 


024205 




-004- 20 


TBN 


COMP OP, S (COMP OP) 


0020757 


05 000203 


055004 


0020763 


-002- 21 


BNC 


IFS1564 


0020760 








22 


LOS 


0(RA1),AC=YES U TRY OFFLINE READ AGAIN WITH COM-CORRECT 


0020760 


05 000204 


076020 




-001- 23 


STAF 


0(RA1) 


0020761 


05 000205 


136160 




-001- 24 


DATA 


8(1011110001110000) 


0020762 


05 000206 


030207 




25 


ICF 


OFL_ERR,S(OFL_ERR) 


0020763 








26 


RGEND 




0020763 








-001- 27 IFS1664 






0020763 








28 


RGEND 




0020763 








-001- 2? IFS1662 






0020763 


05 000207 


106120 




30 


LR 


R5,R0 It LOAD LOW 16 BITS 


0020764 








31 


IF 


WIDE OP THEN RGBEGIN 


0020764 


05 000210 


024210 




-004- 32 


TBN 


WIDE OP,S(WIDE OP) 


0020765 


05 000211 


055004 


0020771 


-002- 33 


BNC 


IFS1S71 


0020766 








34 


MIMODE 


L R4,SDR1 At LOAD HIGH 8 BITS 


0020766 


05 000212 


013000 




-001- 35 


MIS 





0020767 


05 000213 


055055 




-002- 36 


VFD 


8,R4XT 8,SDR1XF 


0020770 


05 000214 


010510 




37 


RRN 


R4,8 K POSITION HIGH BITS OF WIDE STORE 


0020771 








38 


RGEND 




0020771 








-001- 39 IFS1671 






0020771 


05 000215 


104400 




40 


ZCF 


K INSURE CF = BEFORE ZBIN 


0020772 








41 


ZBIN 




0020772 


05 000216 


013002 




-001- 42 


MIS 


2 


0020773 


05 000217 


107322 




-001- 43 


DATA 


36562 










44 « CHECK IF 


READ CAUSED AN INTERRUPT (NO OMAS RESPONSE) 


0020774 








45 


IF 


CF ■ 1 THEN SBN OFL ERR, S (OFL ERR) 


0020774 


05 000220 


0020776 


-001- 46 


BNC 


IFS1678 


0020775 


05 000221 


026207 




-001- 47 


SBN 


OFL_ERR,S(OFL_ERR) # 


0020776 








-001- 48 IFS1678 






0020776 








49 


RGEND 
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COMPARE MAIN STORE MULTISCAN FUNCTION 
MAIN FUNCTION 
0020776 , 



P03 



■001- 01 IFS1657 



0:32:20 2/06/81 **** 
CNRUTL W77D 



0020776 05 000222 117*00 140000 
0021000 

0021000 05 000224 055011 0021011 

0021001 05 000225 006142 

0021002 05 000226 006163 

0021003 05 000227 015144 

0021004 05 000230 015165 

0021005 05 000231 014152 



-002- 



05 
06 
07 
08 
09 



CIRM 
IF 



COMPARE 
LR 

10 LR 

11 XR 

12 XR 

13 NR 

14 CMPRPROG OH 
-001- 15 NOTE 



BNC 
DATA 



ONL ERR,0,0,M(ONL ERR)+M<OFL ERR) 
- CF THEN 8 PRINTDATA 
PRINTOATA 

R6,R2 

R7,R3 

R6,R4 

R7,R5 

R6,R10 

0(232) ff 12634 

************* THE FIRST ADDRESS OVERWRITTEN IS 000232 ********** 



0021006 05 000232 037000 021143 0021143 -001- 

-001- 
-001- 



18 CMPRPROG BGNP 

19 BL 

20 NOTE 

21 NOTE 



0(367) n 12634 

XXX1684 

CMPRPROG 'CSECT' 

***************** PATCH AREA BEGINS AT 000367 **************** 



0021143 

0021143 05 000367 114173 

0021144 05 000370 014547 

0021145 05 000371 030000 

0021146 05 000372 015010 

0021147 05 000373 024000 

0021150 

0021150 05 000374 037000 021010 0021010 



-001- 24 XXX1684 PATCHAREA 

25 NR R7,R11 

26 OR R6,R7 

27 ICF RO,S(ON OFF) 

28 XR RO,ON OFF 

29 TBN RO,S(ON OFF) 

30 ENDP # 12634 

31 BL XXX1686 

32 NOTE ************ LAST PATCH ADDRESS USED IS 000375 *************** 

33 NOTE ***** NUMBER OF PATCH WORDS USED IS 7 (DECIMAL) ******** 



0021010 

0021010 

0021010 05 000234 155072 

0021011 



0021102 



-001- 
-001- 
-001- 



-001- 
-001- 
-001- 



36 XXX1686 OWCONTINUE 

37 IF CF = 1 THEN RGBEGIN 

38 BNC 

39 EOW 

40 NOTE 



IFS1688 

H 12634 
*************** THE LAST ADDRESS OVERWRITTEN IS 000234 
********** 



0021011 

0021011 

0021011 05 000235 137020 021130 0021130 

0021013 05 000237 155103 0021116 

0021014 



44 PRINTDATA 

45 # PRINT LINE OF OUTPUT AFTER REAL TIME BREAK 

46 CALL WAITX 
-001- 47 BSA WAITX 

48 BNC CMPRSTOP 

49 CALL MTTYIDLE # MTC TTY BUST ? 
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— E03 

COMPARE MAIN STORE MULTISCAN FUNCTION 0:32:20 2/06/81 **** 

MAIN FUNCTION CNRUTL W77D 

0021014 05 000240 037020 161224 CTTYH -001- 01 BSA MTTYIDLE 

0021016 OS 000242 155773 0021011 02 BNC PRINTOATA # TRY AGAIN LATER 

04 * CMPR MAS address online (ERR) offline (ERR) 

05 n LOAD REGISTERS FOR OUTPUT 

0021017 05 000243 071420 06 HA 

0021020 05 000244 006156 07 LR R6,RA1 * ADDRESS 

0021021 05 000245 006177 08 LR R7,RA1+1 

0? CMPRPROG OW 0(246) (K 12634 
-001- 10 NOTE ************* THE FIRST ADDRESS OVERWRITTEN IS 000246 

********** 

22?J2 2 , 2 , 05 ° 00246 ° 07202 1 * EXR R8 ' R2 * M0VE FLAG REGISTER TEMPORARILY TO R2 

0021023 15 EOW H 12634 

-001- 16 NOTE *************** THE LAST ADDRESS OVERWRITTEN IS 000246 

********** 

0021023 05 000247 006223 20 LR R9,R3 

0021024 05 000250 003240 21 ZR R10 

22 CMPRPROG OW 0(251) # 12634 
-001- 23 NOTE ************* THE FIRST ADDRESS OVERWRITTEN IS 000251 

********** 

0021025 05 000251 024046 27 TBN R2,S(0NL ERR) 

BUS 05 000252 055003 0021031 -001- \\ BNC IWA*" ^ R10 ' (E ' R ' R > 

0021027 05 000253 003641 000307 TTYTBL . -002- 30 LI R10.EXRR 

0021031 -001- 31 IFS1699 

0021031 32 EOW U 12634 

-001- 33 NOTE *************** THE LAST ADDRESS OVERWRITTEN IS 000254 

********** 

0021031 05 000255 106264 37 LR R11,R4 

0021032 05 000256 006305 38 LR R12,R5 

0021033 05 000257 003320 39 ZR R13 

40 CMPRPROG OW 0(260) H 12634 
-001- 41 NOTE ************* THE FIRST ADDRESS OVERWRITTEN IS 000260 

********** 

0021034 05 000260 024047 45 TBN R2,S(0FL ERR) 

SSIiSg 05 000261 055003 0021040 -001- ft BNC 1^707^" "^ »«'<«'»'« 

0021036 05 000262 003721 000307 TTYTBL -002- 48 LI R13.EXRR 

0021040 -001- 49 IFS1707 



COMMON NONRESIDENT UTILITIES 

0:32:20 2/06/81 TRADE SECRET - SEE TRADE SECRET RESTRICTIVE NOTICE ON COVER SHEET CNRUTL 



PR-1C954-50 
ISSUE 05 PAGE 



141 



F03 



COMPARE MAIN STORE MULTISCAN 


FUNCTION 












0:32:20 2/06/81 **** 


MAIN FUNCTION 














CNRUTL W77D 


0021040 






01 






EOU 


U 12634 






-001- 


02 






NOTE 


*************** THE LAST ADDRESS OVERWRITTEN IS 000263 


. 






06 






SPELL 


********** 
R4,(C,M,P,R) 


0021040 05 000264 103501 000011 


TTYTBL 


-001- 


07 
08 






LI 
SPELL 


R4,CXMPR 
R5,(M,A,S) 


0021042 05 000266 003521 000151 


TTYTBL 


-001- 


09 






LI 


R5,MXAS 








10 


CMPR 


OW 


0(270) * 12634 






-001- 


11 






NOTE 


************* THE FIRST ADDRESS OVERWRITTEN IS 000270 
********** 


0021044 05 000270 024044 






15 






TBN 


R2,S(ALM OP) 


0021045 






16 






IF 


CF ■ 1 THEN RGBEGIN 


0021045 05 000271 055016 


0021063 


-001- 


17 






BNC 


IFS1721 


0021046 05 000272 024050 






18 






TBN 


R2,S(WIDE OP) 


0021047 






19 






IF 


CF = 1 THEN RGBEGIN 


0021047 05 000273 055005 


0021054 


-001- 


20 






BNC 


IFS1722 


0021050 






21 






EOW 


U 12634 






-001- 


22 






NOTE 


*************** THE LAST ADDRESS OVERWRITTEN IS 000273 
********** 


0021050 






26 






PRINT 


FMT=(WRD,WRD,H_C,L_X,HJ>,L_X,WRD,H D,LJ(,WRD),PRI0R«3,PACTI0N 
s** 






-001- 


29 


# 


MESSAGE 


PROTOTYPE 






-001- 


30 


K 


** BIB 


WRC 


WRD xxxxx ooxxxx WRD ooxxxx WRD 


0021050 05 000274 073053 




-002- 


31 






BSAI 


PXMRY n SUBROUTINE PMRY IS IN PROGRAM TTYA?P 


0021051 05 000275 004260 




-002- 


32 






VFD 


1,0 2,0 1,0 3,4 1,0 1,1 1,0 2,3 1,0 3,0 


0021052 05 000276 066145 




-002- 


33 






VFD 


4,TTY0 L X 4,TTY0 H D 4,TTY0 L X 4,TTY0 H C 


0021053 05 000277 003300 




-002- 


34 






VFD 


4,TTY0 WRD 4,TTY0 L~X 4,TTY0~H~D 4,TTY0~WRD 






-001- 


35 






NOTE 


THE VARIABLE PORTION OF THE OUTPUT MESSAGE TO BE PRINTED IS 
CONTAINED IN GENERAL REGISTERS R4,R5,R6,R7,R8,R9,R10,R11 ,R1 
,R13, 






-001- 


38 






NOTE 


****THIS MESSAGE WILL RESULT IN A MAJOR ALARM**** 








39 


CMPR 


OW 


0(300) H 12634 






-001- 


40 






NOTE 


************* THE FIRST ADDRESS OVERWRITTEN IS 000300 
********** 


0021054 






44 






RGEND 


■ 


0021054 




-001- 


45 


IFS1 






0021054 05 000300 124050 






46 






TBN 


R2,S(WIDE OP) 


0021055 






47 






IF 


CF = THEN RGBEGIN 


0021055 05 000301 054005 


0021062 


-001- 


48 






BC 


IFS1732 


0021056 






49 






EOW 


H 12634 
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603 




COMPARE MAIN STORE MUITISCAN 


FUNCTION 










0:32:20 2/06/81 **** 


MAIN FUNCTION 












CNRUTL W77D 


» 




-001- 


01 




NOTE 


*************** THE LAST ADDRESS OVERWRITTEN IS 000301 












********** 


0021056 • 






05 




PRINT 


FMT=(WRD,WRD,H_C,L_X,SKP,L_X,WRD,SKP,L X,WRD),PRI0R*3, PACTION 

E** 






-001- 


08 # 


MESSAGE 


PROTOTYPE 






-001- 


09 n 


** mm 


WRC 


WRD xxxxx xxxx WRD xxxx WRD 


0021056 05 000302 073053 




-002- 


10 




BSAI 


PXMRY n SUBROUTINE PMRY IS IN PROGRAM TTYAPP 


0021057 05 000303 004260 




-002- 


11 




VFD 


1,0 2,0 1,0 3,4 1,0 1,1 1,0 2,3 1,0 3,0 


0021060 05 000304 061145 




-002- 


12 




VFD 


4,TTY0_L_X 4,TTY0_SKP 4,TTY0 L X 4,TTY0 H C 


0021061 05 000305 003040 




-002- 


13 




VFD 


4,TTY0_WRD 4,TTY0 L X 4,TTY0 SKP 4,TTY0~WRD 






-001- 


14 




NOTE 


THE VARIABLE PORTION, OF THE OUTPUT MESSAGE TO 8E PRINTED IS 
CONTAINED IN GENERAL REGISTERS R4,R5,R6,R7,R9,R10,R12,R13, 


, 




-001- 


16 




NOTE 


****THIS MESSAGE WILL RESULT IN A MAJOR ALARM**** 


0021062 






17 




RGEND 




0021062 




-001- 


18 IFS1732 






0021062 05 000306 153034 


0021116 




19 




B 


CMPRSTOP 








20 CMPRPROG 


OW 


0(307) M 12634 






-001- 


21 




NOTE 


************* THE FIRST ADDRESS OVERWRITTEN IS 000307 
********** 


0021063 






25 




RGEND 




0021063 




-001- 


26 IFS1721 






0021063 05 000307 124044 






27 




TBN 


R2,S(ALM OP) 


0021064 






28 




IF 


CF * THEN 3GBE6IN 


0021064 05 000310 054015 


0021101 


-001- 


29 




BC 


IFS1743 


0021065 05 000311 024050 






30 




TBN 


R2,S(WIDE OP) 


0021066 






31 




IF 


CF " 1 THEN RGBEGIN 


0021066 05 000312 055005 


0021073 


-001- 


32 




BNC 


IFS1744 


0021067 






33 




EOW 


» 12634 






-001- 


34 




NOTE 


*************** THE LAST ADDRESS OVERWRITTEN IS 000312 
********** 


0021067 






38 




PRINT 


FMT«=(WRD,WRD,H_C,L_X,H..D,L_X,WRD,HJ>,L_X,WRD) 






-001- 


40 * 


MESSAGE 


PROTOTYPE 






-001- 


41 » 


nm 


WRD 


WRD xxxxx ooxxxx WRD ooxxxx WRD 






-002- 


42 




BSAI 


P*MRY SUBROUTINE PMRY IS IN PROGRAM TTYAPP 


0021070 05 000314 000200 




-002- 


43 




VFD 


1,0 2,0 1,0 3,0 1,0 1,1 1,0 2,0 1,0 3,0 


0021071 05 000315 066145 




-002- 


44 




VFD 


4,TTY0_L_X 4,TTY0 H D 4,TTY0 L X 4,TTY0 H C 


0021072 05 000316 003300 




-002- 


45 




VFD 


4,TTY0_WRD 4,TTY0_L_X 4,TTY0~H~D 4,TTY0~WRD 






-001- 


46 




NOTE 


THE VARIABLE PORTION Of THE OUTPUT MESSAGE TO BE PRINTED IS 
CONTAINED IN GENERAL REGISTERS R4,R5,R6,R7,R8,R9,R10,R11,R1 
,R13, 
0(317) # 12634 








49 CMPRPROG 


OW 
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A04 




COMPARE MAIN STORE MULTISCAN FUNCTION 








0:32:20 2/06/81 **** 


MAIN 


FUNCTION 








CNRUTL W77D 






-001- 


01 


NOTE 


************* THE FIRST ADDRESS OVERWRITTEN IS 000317 
********** 


0021073 






05 


RGEND 




0021073 




-001- 


06 IFS1744 






0021073 


05 000317 124050 




07 


TBN 


R2,S(WI0E OP) 


0021074 






08 


IF 


CF ■ THEN RGBE6IN 


0021074 


05 000320 054005 0021101 


-001- 


09 


BC 


IFS1754 


0021075 






10 


EOW 


U 12634 






-001- 


11 


NOTE 


*************** THE LAST ADDRESS OVERWRITTEN IS 000320 

********** 


0021075 






15 


PRINT 


FMT=(WRD,WRD,H_C,L_X,SKP,L_X,WRD,SKP,L_X,WRD> 


' 




-001- 


17 # MESSAGE 


PROTOTYPE 






-001- 


18 mm 


MM 


WRD xxxxx xxxx WRD xxxx WRD 


0021075 


05 000321 073053 


-002- 


19 


BSAI 


PXMRY U SUBROUTINE PMRY IS IN PROGRAM TTYAPP 


0021076 


05 000322 000200 


-002- 


20 


VFD 


1,0 2,0 1,0 3,0 1,0 1,1 1,0 2,0 1,0 3,0 


0021077 


05 000323 061145 


-002- 


21 


VFD 


4,TTY0_L_X 4,TTY0 SKP 4,TTY0 L X 4,TTY0 H C 


0021100 


05 000324 003040 


-002- 


22 


VFD 


4,TTY0_WRD 4,TTY0 L X 4,TTY0~sRp 4,TTY0~WRD 






-001- 


23 


NOTE 


THE VARIABLE PORTION OF THE OUTPUT MESSAGE TO BE PRINTED IS 
CONTAINED IN GENERAL REGISTERS R4,R5,R6,R7,R9,R10,R12,R13, 


0021101 






25 


RGEND 




0021101 




-001- 


26 IFS1754 






0021101 






27 


RGEND 




0021101 




-001- 


28 IFS1743 




. . ' 


0021101 


05 000325 171400 




29 


GA 




0021102 






30 


RGEND 




0021102 




-001- 


31 IFS1688 












35 U CHECK FOR LAST ADDRESS 


0021102 






36 IF 


R13 


« R15 THEN RGBEGIN 


0021102 


05 000326 120337 


-002- 


37 


CR 


R13,R15 


0021103 


05 000327 055003 0021106 


-001- 


38 


BNC 


IFS1764 


0021104 






39 


IF 


R12 = R14 THEN B CMPRCOMPL # DONE 


0021104 


05 000330 020316 


-002- 


40 


CR 


R12,R14 


0021105 


05 000331 054006 0021113 


-001- 


41 


BC 


CMPRCOMPL 


0021106 






42 


RGEND 




0021106 




-001- 


43 IFS1764 
45 M ADVANCE 


ADDRESS 




0021106 






46 ADVANCE 






0021106 


05 000332 103021 




47 LN 


R1, 


1 ...'•' 


0021107 






48 ARL 


RA1 


,R1 


0021107 


05 000333 001761 


-001- 


49 AR 


RA1+1,R1 
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804 


COMPARE MAIN STORE MULTISCAN FUNCTION 








0:32:20 2/06/81 **** 


MAIN 


FUNCTION 










CNRUTL W77D 


0021110 


05 000334 055002 


0021112 


-001- 


01 




BNC IFS1769 


0021111 


05 000335 004741 




-001- 


02 




AN RA1,1 


0021112 


05 000336 153560 


0020672 




03 




B CMPRLOOP 


0021113 








05 


CMPRCOMPL 










06 




SPELL R6,(C,0,M,P,L) 


0021113 


05 000337 103541 


000302 TTYTBL 


-001- 


07 




LI R6,CX0MPL 


0021115 


05 000341 053003 


0021120 




08 




B ENDCMPR 


0021116 








10 


CMPRSTOP 










11 




SPELL R6,(S,T,0,P,P,E,D> 


0021116 


05 000342 103541 


000346 TTTTBL 


-001- 


12 




LI R6.SXT0PPED 


0021120 








13 


ENDC 


0021120 








14 




CALL STPUTIL » STOP DB DISPLAY 


0021120 


05 000344 173052 




-001- 


15 




BSAI SXTPUTIL U SUBROUTINE STPUTIL IS IN PROGRAM CUTIL 


0021121 








16 




PRINT FMT=<WRD(C,M,P,R),WRD(M,A,S),WRD),PRI0R«=1 








-001- 


18 


It 


MESSAGE PROTOTYPE 








-001- 


19 


§ 


mm CMPR MAS WRD 


0021121 


05 000345 173053 




-002- 


20 




BSAI PXMRY H SUBROUTINE PMRY IS IN PROGRAM TTYAPP 


0021122 


05 000346 100220 




-002- 


21 




VFD 1,1 2,0 1,0 3,0 1,0 1,1 1,0 2,1 1,0 3,0 


0021123 


05 000347 021040 




-002- 


22 




VFD 4,TTY0_ 4,TTY0 4,TTY0 4,TTY0 WRD 


0021124 


05 000350 021042 




-002- 


23 




VFD 4,TTY0 4,TTY0 4,TTY0 4,TTY0" 


0021125 


05 000351 010011 


TTYTBL 


-002- 


24 




VFD 5,2 11,CXMPR ~ 


0021126 


05 000352 000151 


TTYTBL 


-002- 
-001- 


25 
26 




VFD 5 11 HXAS 

NOTE THE VARIABLE PORTION OF THE OUTPUT MESSAGE TO BE PRINTED IS 
CONTAINED IN GENERAL REGISTERS R6, 


0021127 








28 




RETURN 3 


0021127 


05 000353 156463 




-001- 


29 




BTSAN 3 
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CO* 



COMPARE MAIN STORE MULTISCAN FUNCTION 
MAIN FUNCTION 



0:32:20 2/06/81 **** 



CNRUTL 



W77D 



0021130 
0021130 
0021130 



0021130 

0021130 

0021130 05 000354 130*00 043147 CTSD 

0021132 

0021132 05 000356 014000 

0021133 05 000357 055002 0021135 

0021134 05 000360 056461 

0021135 

0021135 05 000361 106036 

0021136 05 000362 006017 

0021137 



0021137 

0021137 05 000363 037020 133305 CUTIL 

0021141 

0021141 05 000365 173025 

0021142 

0021142 05 000366 156400 





01 


§ 


DESCRIPTION 






02 


f 


DISPLAY RA1 


IN THE DISPLAY BUFFER AND TAKE A REAL TIME BREAK 




03 










04 


* 


ENTRY 






05 


n 


WAITX 






06 










07 


* 


INPUTS 






08 


i 


NONE 






09 










10 


n 


OUTPUTS 






11 


i 


RO = RETURN 


CODE 




12 


n 


- SUCCESS 




13 


1 


-0 - ABORT 






15 


WAITX 


' 




16 




BE6IN 







17 




LL 


R0,URE8BUF 




18 




IF 


RO = THEN RETURN 1 H STOP:UTIL TYPED - ABORT 


002- 


19 




TZ 


RO 


001- 


20 




BNC 


IFS1791 


002- 


21 




BTSAN 1 


001- 


22 


IFS1791 






23 


CMPRPROG OW 


0(361) H 12607 


001- 


24 




NOTE 


************* THE FIRST ADDRESS OVERWRITTEN IS 000361 ********** 




27 




LR 


R1,RA1 




28 




LR 


R0,RA1+1 




•29 




EOW 


» 12607 


001- 


30 




NOTE 


*************** THE LAST ADDRESS OVERWRITTEN IS 000362 ********* 

* 




34 




CALL 


LOADDB H UPDATE DB 


001- 


35 




BSA 


LOADDB 




36 




CALL 


WAIT 


001- 


37 

38 




BSAI 
RETURN 


WXAIT K SUBROUTINE WAIT IS IN PROGRAM CBLM 


001- 


39 




BTSA 
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DO* 



COMPARE MAIN STORE MULTISCAN FUNCTION 
PATCH AREA 



00211*3 
00211*3 



0:32:20 2/06/81 **** 
CNRUTL W77D 



01 


DDELETE NOTE 


1 


02 


BSS 


45 


03 


CMPRPATCH 




04 


DINSERT NOTE 


• 



DO .CMPRPATCH 1=1,43 
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E04 



OVERWRITE MULTISCAN FUNCTION 
TTY CATALOG TABLE 



0:32:20 2/06/81 **** 
CNRUTL W77D 



0021143 



01 
02 
03 
04 
05 
06 
07 
08 
09 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
2A 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 



THE OVERWRITE UTILITY PROVIDES THE MEANS OF MAKING. CHANGES TO THE GENERIC 
PROGRAM. THE CHANGES ARE SPECIFIED AT THE LOWEST POSSIBLE LEVEL BY INPUTTING 
THE RAW DATA FOR EACH LOCATION TO BE CHANGED. A CHANGE IS ACTUALLY 
INTRODUCED VIA A VERY FORMALIZED PROCEDURE SPECIFIED IN A BELL SYSTEM 
PRACTICES (BSP). THIS UTILITY PROVIDES THE TTY MESSAGES AND PROCESSING 
ROUTINES ON WHICH THE FORMAL PROCEDURE IS BASED. THE IMPLEMENTATION OF EACH 
MESSAGE PROCESSING ROUTINE WILL BE DISCUSSED AT THE ENTRY POINT FOR THE 
INDIVIDUAL ROUTINES. TO PLACE THE MESSAGES IN PERSPECTIVE, HOWEVER, IT IS 
USEFUL TO OUTLINE A TYPICAL SEQUENCE OF MESSAGES AS THEY MIGHT BE REQUIRED 
IN THE PROCEDURE. IT SHOULD BE EMPHASIZED THAT THE FOLLOWING SEQUENCE IS 
TYPICAL AND NOT THE STANDARD. 



TTY INPUT MESSAGE 



FUNCTION PERFORMED 



ALW:OW! INITIALIZE OW CONTROL BLOCKS. 

IN:GENID:xxxxxxxx! IDENTIFY GENERIC TO WHICH OW SHOULD BE APPLIED. 
IN:ISSID:zzzzzzzz! IDENTIFY ISSUE TO WHICH OW SHOULD BE APPLIED. 
IN:OW nnnnn;TTY! BEGIN THE INPUT OF OW NUMBER nnnnn FROM THE TTY. 



IN:OWDATA:ck,seg,adr,old,new! 
IN:OWDATA:ck,seg,adr,old,new! 



IN:OWDATA:ck,seg,adr,old,new! 
VER:OW:OLD! 



ENTER THE BODY OF THE OW. 



VERIFY THAT THE OLD DATA IN THE IN:OWDATA MESSAGES 

MATCHES THE PRESENT DATA IN THE PROCESSOR. 

ADD OW TO FILE OF OVERWRITES ON TAPE. 

CHANGE THE GENERIC DATA IN MAIN STORE (RESIDENT) 

OR ON TAPE (NONRESIDENT). 

COMPUTE NEW RESIDENT HASHSUMS. 

COMPUTE NEW NONRESIDENT HASHSUMS. 

SWITCH AND TEST OVERWRITE 

ACT:OW! FLAG RESIDENT PORTIONS OF THE OW TO BE USED DURING 

A MEMORY RELOAD INITIALIZATION. 
UPD:HASH:GENERIC! UPDATE THE CHECKSUM FILE WITH NEW HASHSUMS. 
STOP:OW! UPDATE THE OTHER MAIN STORE AND DEACTIVATE OVERWRITE PROGRAM. 



OP:OW;TAPE! 
LOD:0W:NEW! 

OP:HASH:GENERIC! 
OP:HASHNR:SEG! 
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F04 



OVERWRITE MULTISCAN FUNCTION 



0:32:20 2/06/81 **** 



TTr CATALOG TABLE 



CNRUTL 



W77D 



0021143 



0021143 ; 



01 


tt 


02 


§ 


03 




04 


tt 


05 


tt 


06 


ft 


07 


tt 


08 


tt 


09 


tt 


10 


it 


11 


tt 


12 


it 


13 


tt 


14 


tt 


15 


it 


16 


tt 


17 


tt 


18 


tt 


19 


tt 


20 


tt 


21 


tt 


22 


tt 


23 




24 


tt 


25 


tt 


26 


tt 


27 


it 


28 


tt 



GENERAL COMMENTS ON CONTROL FLOW IN THE OVERWRITE SECTION 

IN THIS SECTION, A SET OF MACROS CRTB, CALLPROC, AND RTNPROC) 

IS USED TO CONTROL FLOW OVER REAL TIME BREAKS. THE RTB MACRO, IN PARTICULAR, 

PROVIDES A MEANS OF TAKING A REAL TIME BREAK WITHOUT BEING DISTRACTED 

BY THE OVERHEAD OF SAVING AND RESTORING STATUS INFORMATION. THE DISTRACTION 

IS AVOIDED BOTH IN READING THE PROGRAM AND UNDERSTANDING WHAT IS HAPPENING. 

THE RTB MACRO HAS THREE OPTIONS (TTYIN,TTYOUT,TAPE> . THE TTYIN OPTION 

IS USED TO BRIDGE THE REAL TIME BREAK FROM THE TTY INPUT PROCESSING CALL TO THE 

SUBSEQUENT MULTISCAN FUNCTION ENTRY. IT ANALYZES THE INPUT MESSAGE 

VARIABLE FIELDS AND SAVES THE DATA IN THE OWCTL BUFFER. 

THE TTYOUT OPTION IS USED TO BRIDGE THE REAL TIME BREAK BETWEEN LINKS OF 

A LINKED TTY OUTPUT MESSAGE. THE TAPE OPTION IS USED TO BRIDGE THE 

REAL TIME BREAK TAKEN TO ALLOW REQUESTED TAPE OPERATIONS TO COMPLETE. IN EACH 

CASE, CONTROL IS PASSED TO THE FINAL SUBSECTION TO DO THE PROCESSING. CONTROL 

IS RETURNED TO THE INSTRUCTION FOLLOWING THE CALL TO RTB ONLY AFTER THE BREAK 

IS COMPLETED. FOR THE THREE OPTIONS THIS MEANS THE NEXT MULTISCAN FUNCTION ENTRY, 

THE PREVIOUS TTY LINK HAS COMPLETED, AND THE TAPE OPERATION HAS COMPLETED RESPECTIVELY. 

THE RTB MACRO SAVES AND RESTORES R2-R13 IN THE OWCTL BUFFER. 

BEFORE THE SAVE, THE RTBPM REGISTER IS UPDATED TO MARK THE POINT AT WHICH 

THE BREAK WAS TAKEN. 

THE CALLPROC AND RTNPROC MACROS ARE USED LIKE THE CALL AND RETURN 
MACROS FOR SUBROUTINES. THE DIFFERENCE IS THAT THEY DO NOT USE THE HG AREA 
BUT RATHER SAVE THE RETURN ADDRESS MARKER IN REGISTER PROCPM. THIS 
ALLOWS THE CALLED ROUTINE, LABELLED AN OW PROCEDURE, TO TAKE REAL TIME 
BREAKS VIA THE RTB MACRO. REGISTER CONTENTS ARE NOT NECESSARILY PRESERVED. 
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OVERWRITE HULTISCAN FUNCTION 






0:32:20 2/06/81 **** 


ADMINISTRATIVE 


CONTROL 






CNRUTL W77D 


0011037 






01 OWPROG CSECT 








02 * THE ADMINISTRATIVE CONTROL SUBSECTION IS 


rHE MULTISCAN FUNCTION ENTRY POINT. 






03 H IT INTERPRETS THE ENTRY CODE DIFFERENTIATING BETWEEN AN ABORT ENTRY. A 






04 ft FIRST ENTRY OR THE NORMAL PER SCAN 


ENTRY. 


IN THE FIRST CASE AN APPROPRIATE 






05 # MESSAGE IS TYPED AND 


THE OVERWRITE 


ROUTINE IS TERMINATED. IN THE SECOND CASE. 






06 n ON APPROPRIATE MESSAGE IS TYPED AND THE OWCTL BUFFER IS INITIALIZED. 






07 * ON THE NORMAL ENTRY, 


CONTROL IS IMMEDIATELY PASSED TO THE FINAL SUBSECTION 






08 U WHICH PROCESSES REAL 


TIME BREAKS. 






0011037 






12 OWMSF 






0011037 






13 BEGIN () 




0011037 






14 IF 


ABTB THEN RGBEGIN 


0011037 


06 000000 


124000 -004- 


15 


TBN 


ABTB, S (ABTB) 


0011040 


06 000001 


055042 0011102 -002- 


16 


BNC 


IFS1813 








17 


CLOSE 


OVWCLNT H IN CASE OW FUNCTION WAS DOING A TAPE 
OPERATION 


0011041 


06 000002 


073047 -002- 


19 


BSAI 


RXEQR H SUBROUTINE REQR IS IN PROGRAM CTAPH 


0011042 


06 000003 


015300 -001- 


20 


VFD 


5, OVWCLNT 4, CLOSE 1,1 1,0 5,0 
RO 


0011043 


06 000004 


156000 


21 


BPAX 


0011044 


06 000005 


153003 0011047 


22 


B 


ABTCONT M CLOSE SUCCESSFUL 


0011045 


06 000006 


153002 0011047 


23 


B 


ABTCONT It OVERWRITE PROGRAM WAS NOT IN CONTROL 


0011046 






24 


RETURN 


2 * WAIT FOR TAPE OPERATION TO COMPLETE 


0011046 


06 000007 


156462 -001- 


25 


BTSAN 


2 


0011047 






26 ABTCONT 






0011047 






27 


CALL 


CK OST 


0011047 


06 000010 


137020 001750 CBLM -001- 


28 


BSA 


CK~OST 


0011051 






29 


IF 


RO >«= 3 THEN RGBEGIN 


0011051 


06 000012 


106000 -003- 


30 


LR 


RO,RO 


0011052 


06 000013 


003400 177775 -003- 


31 


SI 


R0,3 


0011054 


06 000015 


055013 0011067 -001- 


32 


BNC 


IFS1820 


0011055 


06 000016 


003401 000002 


33 


LI 


R0,ES<1STB) 


0011057 






34 UPDOMASCONT 




0011057 






35 


CALL 


OMASUPD 


0011057 


06 000020 


137020 003176 CBLM -001- 


36 


BSA 


OMASUPD 


0011061 






37 


IF 


RO * 3 THEN B UPDDONE 


0011061 


06 000022 


103405 000003 -002- 


38 


CI 


R0,3 


0011063 


06 000024 


054004 0011067 -001- 


39 


BC 


UPDDONE 


0011064 






40 


CALL 


WAIT 


0011064 


06 000025 


073025 -001- 


41 


BSAI 


WXAIT # SUBROUTINE WAIT IS IN PROGRAM CBLM 


0011065 


06 000026 


103000 


42 


ZR 


RO 


0011066 


06 000027 


053771 0011057 


43 


B 


UPDOMASCONT 


0011067 






44 


RGEND 




0011067 




-001- 


45 IFS1820 






0011067 






46 UPDDONE 






0011067 






47 


PRINT 


FMT«(WRD<A,L,W),WRD(0,W),WRD(S,T,0,P,P,E,D)> 
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OVERWRITE HULTISCAN FUNCTION 
ADMINISTRATIVE CONTROL 



0011067 06 000030 173053 

0011070 06 000031 100200 

0011071 06 000032 021040 

0011072 06 000033 021042 

0011073 06 000034 014004 TTYTBL 

0011074 06 000035 000202 TTYTBL 

0011075 06 000036 000346 TTYTBL 

0011076 06 000037 103020 

0011077 06 000040 034420 043177 CTSO 
0011101 

0011101 06 000042 056463 

0011102 

0011102 
0011102 

0011102 06 000043 124001 

0011103 06 000044 055020 0011123 

0011104 



0011104 06 000045 073053 

0011105 06 000046 100200 

0011106 06 000047 021040 

0011107 06 000050 021042 

0011110 06 000051 014004 TTYTBL 

0011111 06 000052 000202 TTYTBL 

0011112 06 000053 000302 131400 TTYTBL 



0011113 06 000054 131400 010025 0010025 

0011115 06 000056 003014 

0011116 

0011116 06 000057 073031 

0011117 06 000060 103000 



0011120 06 000061 037000 117033 0000401 



0:32:20 



2/06/81 **** 



CNRUTL 



H77D 



-001- 01 


1 


MESSAGE PROTOTYPE 


-001- 02 


1 


mm 


M.I 


OW STOPPED 


-002- 03 






BSAI 


PXMRY M SUBROUTINE PMRY IS IN PROGRAM TTYAPP 


-002- 04 






VFO 


1,1 2,0 1,0 3,0 1,0 1,1 1,0 2,0 1,0 3,0 


-002- 05 






VFO 


4,TTY0_ 4,TTY0_ 4,TTY0 4,TTY0 WXD 


-002- 06 






VFO 


4,TTY0_ 4,TTY0 4,TTY0~ 4,TTYo" 


-002- 07 






VFO 


5,3 11,AXLW 


-002- 08 






VFD 


5, 11,0XW 


-002- 09 






VFO 


5, 11,SXT0PPED 


-001- 10 






NOTE 


THE VARIABLE PORTION OF THE OUTPUT MESSAGE TO BE PRINTED IS 
CONTAINED IN GENERAL REGISTERS 


12 


OFLU 


■ 


» IDLE UTILITY SELECT WORD 


-004- 13 






ZR 


R1 


-002- 14 






STL 


R1,0FLUCTL 


15 






RETURN 


3 


-001- 16 






BTSAN 


3 


17 






RGEND 




-001- 18 


IFS1 






19 




IF 


1STB 


-004- 20 






TBN 


1STB,S(1STB) 


-002- 21 






BNC 


IFS1848 


22 






PRINT 


FMT=(WRD(A,L,W),WRD(0,W),WRD(C,0,M,P,L)> 


-001- 24 


* 


MESSAGE 


PROTOTYPE 


-001- 25 


f 


nun 


ALU 


OW COMPL 


-002- 26 






BSAI 


PXMRY * SUBROUTINE PMRY IS IN PROGRAM TTYAPP 


-002- 27 






VFD 


1,1 2,0 1,0 3,0 1,0 1,1 1,0 2,0 1,0 3,0 


-002- 28 






VFD 


4,TTY0_ 4,TTY0_ 4,TTY0 4,TTY0 WRD 


-002- 29 






VFD 


4,TTY0_ 4,TTY0_ 4,TTY0 4,TTY0~ 


-002- 30 






VFD 


5,3 11,AXLW 


-002- 31 






VFD 


5, 11,0XW 


-002- 32 






VFD 


5, 11,CX0MPL 


-001- 33 






NOTE 


THE VARIABLE PORTION OF THE OUTPUT MESSAGE TO BE PRINTED IS 
CONTAINED IN GENERAL REGISTERS 


35 






LAL 


R0,0WCTL,RA1 


36 






LN 


RO^om) 


37 






CALL 


CLR_WRDS K ZERO CONTROL BLOCK 


-001- 38 
39 
40 






BSAI 

ZR 

OW 


etr.wRds » SUBROUTINE CLR.WRDS IS IN PROGRAM CSYSUB 

RO 

0(61) n 12280 


OWPROG 


-001- 41 






NOTE 


************* THE FIRST ADDRESS OVERWRITTEN IS 000061 
********** 


45 


CPATCH 


BGNP 


0(401) n 12280 


-001- 46 






BL 


XXX1867 


-001- 47 






NOTE 


CPATCH 'CSECT' 


-001- 48 






NOTE 


***************** PATCH AREA BEGINS AT 000401 ************** 
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OVERWRITE MULTISCAN FUNCTION 








0:32:20 2/06/81 **** 


ADMINISTRATIVE 


CONTROL 








CNRUTL W77D 


011 203 S 




-001- 


03 


XU1867 PATCHAREA 


0112033 10 000401 


134400 010041 0000014 




04 


STL 


RO,SE«KEY 


0112035 10 000403 


031400 010042 0000015 




05 


LAL 


R0,GENISS,RA1 n ZERO GENISS 


0112037 10 000405 


003010 




06 


LN 


R0,8 


0112040 






07 


CALL 


CLR WRDS 


0112040 10 000406 


073031 


-001- 


08 


BSAI 


clr wRds K SUBROUTINE CLR WRDS IS IN PROGRAM CSYSUB 


0112041 






09 


RETURN 


2 ~ 


0112041 10 000407 


156462 


-001- 


10 


BTSAN 


2 


0112042 






11 


ENDP 


NR n 12280 






-001- 


12 


NOTE 


************ LAST PATCH ADDRESS USED IS 000407 ************** 






-001- 


14 


NOTE 


***** NUMBER OF PATCH WORDS USED IS 7 (DECIMAL) ******** 


0011122 






17 


TAKEOUT 1 




-001- 


18 


LR 


0,0 


0011123 






19 


low 


n 12280 






-001- 


20 


NOTE 


*************** THE LAST ADDRESS OVERWRITTEN IS 000063 
********** 


0011123 






24 


RGEND 




0011123 




-001- 


25 


IFS1848 


' 








29 


* IF ACTIVE, WAIT 


FOR TTY OR TAPE OPERATION TO COMPLETE. WHEN IDLE, 




. 




30 


11 RETRIEVE THE REAL TIME BREAK PM (DISPLACEMENT FROM •RTBPMORG') 








31 


# AND BRANCH TO THE INTERRUPTED POINT TO CONTINUE PROCESSING. 


0011123 






32 


EXCRTBPM 


■ 


0011123 06 000064 


131400 010025 0010025 




33 


LAL RO, 


0WCTL,RA1 


0011125 






34 


CALL L2. 


13 # MOVE CONTROL BLOCK TO REGISTERS 


0011125 06 000066 


037020 110750 CSYSUB 


-001- 


35 


BSA L2 


'13 


0011127 






36 


IF TAPEACT THEN RGBEGIN # TEST IF TAPE ACTION IS COMPLETE 


0011127 06 000070 


124216 


-004- 


37 


TBN 


TAPEACT, S (TAPEACT) 


0011130 06 000071 


055012 0011142 


-002- 


38 


BNC 


IFS1879 








39 


STATST 


OVWCLNT 


0011131 06 000072 


073047 


-002- 


40 


BSAI 


RXE8R U SUBROUTINE REAR IS IN PROGRAM CTAPH 


0011132 06 000073 


016300 


-001- 


41 


VFD 


5, OVWCLNT 4, STATST 1,1 1,0 5,0 
R0,1 


0011133 06 000074 


110417 




42 


RLN 


0011134 06 000075 


056000 




43 


BPAX 


RO 


0011135 06 000076 


153017 0011154 




44 


B 


BRTBPM 


0011136 06 000077 


006000 




45 


NOP 




0011137 06 000100 


137000 014630 0014630 




46 


BL 


RE«FAIL 


0011141 






47 


RETURN 


2 


0011141 06 000102 


156462 


-001- 


48 


BTSAN 


2 


0011142 






49 


RGEND 


■■'■.....', . ,•''•. 
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OVERWRITE HULTISCAN FUNCTION 
ADMINISTRATIVE CONTROL 
0011142 



-001- 01 IFS1879 



0:32:20 2/06/81 **** 
CNRUTL W77D 



0011142 

0011142 06 000103 124217 

0011143 06 000104 055011 0011154 

0011144 06 000105 006011 

0011145 

0011145 06 000106 037021 125021 TTYAPP 
0011147 06 000110 110417 



0011150 06 000111 037000 112042 0000410 



0112042 

0112042 10 000410 156000 

0112043 10 000411 137000 014630 0003571 
0112045 

0112045 10 000413 156462 

0112046 10 000414 006000 

0112047 

0112047 10 000415 137000 011152 0000113 





05 IF 


TTYACT THEN RGBEGIN » TEST IF TTY LINK OUTPUT IS COMPLETE 


-004- 


06 


TBN 


TTYACT, S (TTYACT) 


-002- 


07 


BNC 


IFS1887 




08 


LR 


RO,TTYLINK 




09 


CALL 


LINKRDY 


-001- 


10 


BSA 


LINKRDY 




11 


RLN 


R0,1 




12 OWPROG 


OW 


0(111) U 12280 


-001- 


13 


NOTE 


************* THE FIRST ADDRESS OVERWRITTEN IS 000111 
********** 




17 CPATCH 


BGNP 


0(410) U 12280 


-001- 


18 


BL 


XXX1893 


-001- 


19 


NOTE 


CPATCH 'CSECT' 


-001- 


20 


NOTE 


***************** PATCH AREA BEGINS AT 000410 *************** 

* 


-001- 


24 XXX1893 


PATCHAREA 




25 


BPAX 


RO 




26 


BL 


REUFAIL 




27 


RETURN 


2 


-001- 


28 


BTSAN 


2 




29 


NOP 






30 


ENDP 


M 12280 


-001- 


31 


BL 


XXX1896 


-001- 


32 


NOTE 


************ LAST PATCH ADDRESS USED IS 000416 ************** 



-001- 34 



NOTE 



* 
***** NUMBER OF PATCH WORDS 



0011152 
0011152 

0011152 06 000113 106000 
0011153 

0011153 06 000114 006000 
0011154 



-001- 
-001- 
-001- 
-001- 



37 XXX1896 

38 

39 

40 

41 

42 

43 



OWCONTINUE 

TAKEOUT 1 

LR 

TAKEOUT 

LR 

EOW 

NOTE 



0,0 

1 

0,0 



U 12280 
*************** THE LAST ADDRESS OVERWRITTEN IS 000114 
********** 
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OVERWRITE MULTISCAN FUNCTION 
ADMINISTRATIVE CONTROL 



0011154 
0011154 



01 
-001- 02 IFS1887 



DOS 



R6END 



0:32:20 2/06/81 **** 
CNRUTL W77D 



0011154 

0011154 06 000115 103602 037777 

0011156 06 000117 014000 

0011157 06 000120 056010 

0011160 

0011160 

0011160 06 000121 156462 

0011161 

0011161 
0011161 

0011161 06 000122 156460 



06 BRTBPM 

07 NI 

08 TI 



-001- 



RTBPM,M(RTBPM) 
RO 



10 BPAX RTBPM 

11 RTBPMORG 

12 RETURN 2 

13 BTSAN 2 



H NEEDED FOR PROCEDURE RETURN MACRO ENTRY 
(RTNPROC) 

» BASE ADDRESS FOR REAL TIME BREAK PM 



17 DUMUNLOD 

18 it DUMMY ENTRY POINT FOR ALL TAPE READ MACROS. 

19 BEGIN O 

20 RETURN M SIGNAL FINAL ENTRY FOR ALL READS 
-001- 21 BTSAN 
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E05 



OVERWRITE MULTISCAN FUNCTION 

TTY PROCESSING ROUTINES DESCRIPTION 



0:32:20 2/06/81 **** 



CNRUTL 



W77D 






0011162 
0011162 



01 

02 
03 
04 
05 
06 
07 
08 
09 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 



26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 



THIS SUBSECTION LISTS ALL OF THE OVERWRITE TTY INPUT 

MESSAGES. THE DESCRIPTION OF EACH PROCESSING ROUTINE IS PROVIDED AT 

THE BEGINNING OF THE ROUTINE. SOME MESSAGES ARE SIMILAR AND SHARE THE 
SAME PROCESSING ROUTINE. THE PROCESSING ROUTINES ARE: 

1 — INGENID INPUT THE GENERIC IDENTIFIER. 

2— INISSID INPUT THE ISSUE IDENTIFIER. 

3— INOWDATA INPUT THE DATA FOR OVERWRITING ONE PROGRAM LOCATION. 

4— INOW INPUT AN OVERWRITE FROM TAPE OR INITIATE AN INPUT FROM TTY. 

5— OPOW OUTPUT AN OVERWRITE TO TAPE OR TTY. 

6— ACTOW CHANGE THE STATUS OF AN OVERWRITE TO ACTIVE. 

CNLOW CHANGE THE STATUS OF AN OVERWRITE TO INACTIVE. 

RMVOW CHANGE THE STATUS OF AN OVERWRITE TO DEAD. 

7— LODOW LOAD THE DATA SPECIFIED IN AN OVERWRITE. 

VEROW VERIFY THE DATA SPECIFIED IN AN OVERWRITE. 

8--INIT0WFI INITIALIZE THE OVERWRITE FILE, FORMAT THE HEADER. 

UPDOWFIL UPDATE THE OVERWRITE FILE HEADER, 

OPOWFILE PRINT A CENSUS OF THE OVERWRITE FILE ON THE TTY. 

9--STOP0W TERMINATE THE OVERWRITE ROUTINE. 

10— OPHASH CALCULATE THE HASHSUMS OVER RESIDENT DATA. 

11— OPHASHNR CALCULATE THE HASHSUMS OVER NONRESIDENT DATA. 

12— OPHASH UPDATE THE HASHSUM ENTRIES IN THE CHECKSUM FILE. 

13— VERHASH VERIFY THE HASHSUM ENTRIES IN THE CHECKSUM FILE. 



A LEGAL SEQUENCE OF MESSAGES IS ENFORCED BY MEANS OF A SEQUENCE KEY. 
ESSENTIALLY, THE VALUE OF 'SEQKEY' DETERMINES WHETHER OR NOT DATA 
EXISTS IN THE OW BUFFER (CORRECTLY): « EMPTY, 1 = HEADER ONLY, 
2 = HEADER AND ONE OR MORE OVERWRITES. 
ACTION IN SOME CASES IS SHOWN AS (INITIAL, SUCCESS). 



H MESSAGE 

U ALW:OW 

# IN:OW;TTY 
U IN:OW;TAPE 
U IN:OWDATA 
n OP:0W 

it ACT/CNL/RMV:OW 
U LOD:OW 

# VER:OW 

# INIT/UPD/OP:OWFILE 
n OP/UPD/VER:HASH 

K OP:HASHNR 



REQUIRED ACTION 



2 

2 
2 

2 





(0,1) 
(0,2) 

2 
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F05 



OVERWRITE MULTISCAN FUNCTION 
INPUT GENERIC IDENTIFIER 



0:32:20 



2/06/81 **** 



CNRUTL 



W77D 



0011162 



01 INGENID 

02 K INPUT A CHARACTER STRING WHICH IS USED TO IDENTIFY A GENERIC PROGRAM. 

03 * THE CHARACTER STRING IS STORED IN THE UPPER HALF OF THE GENISS BUFFER. 

04 K IT IS USED BY THE IN:OW, INIT:OHFILE AND UPD:OWFILE MESSAGE 

05 If PROCESSING ROUTINES. 






0011162 

0011162 

0011162 06 000123 137020 014561 0014561 

0011164 

0011164 06 000125 154002 0011166 

0011165 06 000126 056400 

0011166 

0011166 06 000127 135540 010042 0010042 

0011170 06 000131 044561 

0011171 06 000132 044602 

0011172 06 000133 044623 

0011173 

0011173 06 000134 056464 TTYTBL 





09 




10 




11 


001- 


12 




13 


001- 


14 


002- 


15 


001- 


16 




17 




18 




19 




20 




21 


001- 


22 



# R6-R9 « 8-CHARACTER ASCII CODE 



IFS1917 



BEGIN 


o 


CALL 


FRSTCHK 


BSA 


FRSTCHK 


IF 


CF ■ THEN RETURN 


BC 


IFS1917 


BTSA 


STAL 


R6 / GENISS / RA1 


ST 


R7,1(RA1) 


ST 


R8,2(RA1) 


ST 


R9,3(RA1) 


RETURN 


TTY OK 


BTSAN 


TTY OK 
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JSL 



OVERWRITE MULTISCAN FUNCTION 
INPUT ISSUE IDENTIFIER 



0:32:20 2/06/81 **** 
CNRUTL W77D 



0011174 



01 INISSID 

02 # INPUT A CHARACTER STRING WHICH IS USED TO IDENTITY A PROGRAM ISSUE. 

03 H THE CHARACTER STRING IS STORED IN THE LOWER HALF OF THE GENISS BUFFER. 

04 H IT IS USED BY THE IN:OW, INIT:OWFILE AND UPD:OWFILE MESSAGE 

05 M PROCESSING ROUTINES. 









0011174 
0011174 
0011174 06 000135 137020 014561 0014561 



-001- 

-001- 
-002- 
-001- 



0011176 

0011176 06 000137 154002 0011200 

0011177 06 000140 056400 

0011200 

0011200 06 000141 135540 010046 0010046 

0011202 06 000143 044561 

0011203 06 000144 044602 

0011204 06 000145 044623 

0011205 

0011205 06 000146 056464 TTYTBL -001- 



BEGIN 
CALL 
BSA 
IF 

BC 

BTSA 

STAL 

ST 

ST 

ST 

RETURN 

BTSAN 





FRSTCHK 
FRSTCHK 

CF = THEN RETURN 
IFS1927 



09 K R6-R9 « 8-CHARACTER ASCII CODE 

10 

11 

12 

13 

14 

15 

16 IFS1927 

17 

18 

19 

20 

21 

22 



R6,GENISS+4,RA1 

R7,1(RA1) 

R8,2(RA1> 

R9,3(RA1) 

TTY OK 

TTY OK 
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JSL 



OVERWRITE HULTISCAN FUNCTION 



0:32:20 



2/06/81 **** 



INPUT OVERWRITE DATA 



CNRUTL 



W77D 



0011206 



0011206 

orgilk 

001 

I 
01 I 

I 
02 1 

I 
031 

I 
041 

I 
051 

I 

I" 



01 INOWDATA 

02 * THIS MESSAGE IS USED TO SPECIFT THE DATA TO CHANGE ONE PROGRAM LOCATION. 

03 * AN OVERWRITE NORMALLY WILL CONTAIN A SERIES OF THESE MESSAGES TO SPECIFT AN 

04 * ENTIRE CHANGE. THE NECESSART DATA INCLUDES A SEGMENT NUMBER AND ADDRESS TO 

05 It IDENTIFY THE LOCATION, OLD DATA WHICH IS USED AS A VALIDITY CHECK, AND NEW DATA 

06 * WHICH IS THE CHANGE. THIS DATA IS ENTERED AND SAVED IN THE OWBUFFER BUFFER. 

07 U THE DATA IN THE BUFFER IS BLOCKED IN ORIGIN BLOCKS. THE FORMAT OF AN ORGBLK IS 

09 ORGBLK PICTURE 
=QQ1=_1Q_« : 



OBLKLG 

I2IftL-N¥M.eE.O£_B4£_W05es_ie_NEXI_eL0CJ<_ 

OBLKSEG 
£IGM|Ni_Nyt!BEB-2£_Bk2£K 



OBLKADR 
-EISSI-AJPPJtESS, Of, 6U9CK 



NEWDL 
NEWDH T 

BiStL5_BlIL.2E-NIw.-&&I& i 



"TS — T — TTT — n~~T — T?~T — TT~T — W'T 



T 



OLDDL 



"olddh" 

HIGH 8 BITS OF OLD DATA 



,k2H,16_|IIS,2E_2LB_04Ii 



6* 1 5 I 4" T 3 T — F 



32 K WHEN THE FIRST WORD IS ENTERED, A SIX-WORD ORGBLK IS CREATED WITH 0BLKLG=1 . 

33 # WHEN AND IF A CHANGE FOR THE NEXT CONSECUTIVE PROGRAM LOCATION IS ENTERED, 

34 # A NEW ORGBLK IS NOT CREATED BUT OBLKLG IS INCREMENTED BY ONE AND 

35 K THREE DATA WORDS ARE APPENDED TO THE END OF THE BLOCK. WHENEVER A CHANGE 

36 # IS ENTERED TO A LOCATION WHICH IS NOT ADJACENT TO AN EXISTING BLOCK, A NEW 

37 H SIX-WORD ORGBLK IS CREATED. IT IS IMPORTANT THAT THE ORGBLK BE 

38 H ORDERED ACCORDING TO ASCENDING SEGMENT NUMBER AND ADDRESS WITHIN THE OWBUFFER. 

39 # THEREFORE, NEWLY CREATED ORGBLKS ARE NOT ADDED AT THE END OF THE OWBUFFER, 

40 # BUT ARE INSERTED AT THE APPROPRIATE POINT BY SHIFTING ALL BLOCKS WITH 

41 K HIGHER SEGMENT NUMBERS AND ADDRESSES. ONE FINAL CASE EXISTS. IF THE LOCATION 

42 H TO BE MODIFIED IS ALREADY CONTAINED IN AN EXISTING ORGBLK, NO ADDITIONS ARE 

43 M MADE AND THE THREE DATA WORDS FOR THAT LOCATION ARE MODIFIED TO REFLECT 

44 # THE NEW IN:OWDATA MESSAGE. A WARNING MESSAGE IS PRINTED IN THIS LATTER CASE. 



0011206 

0011206 

0011206 06 000147 137020 014561 0014561 

0011210 



-001- 



48 
49 
50 

5 
5 
5 
5 
5 



# R6 = CHECK NUMBER 
U R7 = SEGMENT NUMBER 
U R8,R9 = MAS ADDRESS 
U R10,R11 ■ OLD DATA 
n R12,R13 ■ NEW DATA 
BEGIN () 
CALL FRSTCHK 
BSA FRSTCHK 
IF CF «= 



THEN RETURN 
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OVERWRITE MULTISCAN FUNCTION 
INPUT OVERWRITE DATA 



0011210 06 

0011211 06 
0011212 
0011212 

0011212 06 
0011214 

0011 214 06 

0011215 06 

0011216 06 

0011217 06 
0011220 06 
0011221 
0011221 
0011222 06 
0011223 



000151 154002 

000152 056400 



0011212 



06 



0011223 06 
0011224 

0011224 06 

0011225 06 

0011226 06 
0011227 

0011227 06 
0011230 06 
0011232 

0011232 06 

0011233 06 
0011234 
0011234 
0011234 
0011235 
0011235 



-001- 
-002- 
-001- 



06 



000153 137020 014433 0014433 -001- 

000155 114000 -002- 

000156 055167 0011404 -001- 

000157 006350 

000160 006371 

000161 006007 

000162 073030 -001- 

000163 106160 

000164 073036 -001- 

000165 154010 0011234 -001- 

000166 004016 

000167 014407 

000170 054005 0011234 -001- 

000171 031400 010041 0010041 

000173 014000 -002- 

000174 055002 0011235 -001- 

000175 156467 TTYTBL . -001- 

-001- 



01 

02 

03 IFS1938 

04 

05 
06 
07 
08 
0? 
10 

11 

12 
13 
14 

15 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 RTN NG 

29 

30 

31 

32 IFS1947 



B06 



DC 
BTSA 



0:32:20 2/06/81 
CNRUTL 



W77D 



IFS1938 



CALL CHECKNUM 
BSA CHECKNUM 

IF RO -= THEN B INOW0ATAN6 
TZ RO 
BNC INOWDATANG 

RA1,R8 

RA1+1,R9 

R0,R7 

BCDXBIN 

BXCDXBIN 

R7,R0 

RGCHKADR 



LR 

LR 

LR 

CALL 

BSAI 

LR 

CALL 

BSAI 
IF 

SN 
OR 
IF 

LAL 
IF 



# CONVERT SEGMENT NUMBER TO BINARY 

H SUBROUTINE BCDXBIN IS IN PROGRAM CSYSUB 



BC 



BC 



TZ 

BNC 



* IS ADDRESS OUT OF RANGE OR IN TEMPORARY 
STORE 

rgchkAdr * SUBROUTINE RGCHKADR IS IN PROGRAM CSYSUB 

CF = 1 THEN B RTN_NG It CF=1 MEANS OUT OF RANGE 

RTN NG 
R0,2 n R0=0 IF UNWRITE-PROTECTED STORE ADDRESS 

R0,R7 
CF ■ 1 THEN B RTN_NG H CF=1 MEANS INCONSISTENT ADDRESS/SEGMENT 

RTN NG 
R0,SEflKEY,RA1 
RO = THEN RGBEGIN It IN:OW HAS NOT BEEN TYPED 

RO 

IFS1947 



RETURN 

BTSAN 

RGEND 



TTY NG 
TTY_NG 



0011235 06 000176 131402 020000 TDATA 
0011237 06 000200 016376 000017 

0011241 06 000202 010764 

0011242 06 000203 006351 

0011243 06 000204 016350 000017 

0011245 06 000206 010744 

0011246 

0011246 06 000207 006016 

0011247 06 000210 005017 

0011250 06 000211 055015 0011265 

0011251 06 000212 031400 010052 0010052 



H SET UP TDATA ADDRESS 



35 H CHECK THAT ONLY GENERIC OR ONLY TRANSLATION ADDRESSES ARE INSERTED. 

36 It IT IS ASSUMED THAT THE BOUNDARY BETWEEN GENERIC AND TRANSLATIONCI.E. 

37 * IS ON A 16-WORD BOUNDARY. 

38 LAL RO, TDATA, RA1 

39 IRM RA1+1,RA1,MSK(4> 

40 RRN R15,4 

41 LR R14,R9 

42 IRM R14,R8,MSK(4) 

43 RRN R14,4 

44 IF R14 >= R15 THEN RGBEGIN 
-003- 45 LR R0,R14 
-003-. 46 SR R0,R15 
-001- 47 BNC IFS1951 

48 It ADDRESS IS TRANSLATION 

49 LAL R0,0WBUFFER,RA1 



•TDATA') 
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C06 


OVERWRITE MULTISCAN FUNCTION 










0:32:20 2/06/81 **** 


INPUT OVERWRITE DATA 












CNRUTL W77D 


0011253 


06 


000214 


051445 






01 






TBS N(0WTYPE)(RA1),S(0WTYPE> 


0011254 












02 






IF CF * 1 THEN B PASSED CK 


0011254 


06 


000215 


054016 


0011272 


-001- 


03 






BC PASSED CK 


0011255 












04 






IF SEQKEY~^= 2 THEN RGBEGIN 


0011255 


06 


000216 


030400 


010041 0010041 


-002- 


05 






LL RO,SEQKEY 


0011257 


06 


000220 


003404 


000002 


-002- 


;06 






XI R0,2 


0011261 


06 


000222 


054003 


0011264 


-001- 


07 






BC IFS1955 


0011262 


06 


000223 


061445 






08 






SBS N(0WTYPE)(RA1),S(OWTYPE> 


0011263 


06 


000224 


053007 


0011272 




09 






B PASSED CK 


0011264 












10 






RGEND 


0011264 










-001- 


11 


IFS1955 




0011264 












12 






RETURN TTY NG # TRNSLN ADDRESS ILLEGAL 


0011264 


06 


000225 


156467 


TTYTBL 


-001- 


13 






BTSAN TTY NG 


0011265 












14 






RGEND 


0011265 










-001- 


15 

16 


IFS1951 
* ADDHESS 


IS GENERIC 


0011265 


06 


131400 




17 




LAL 


R0,OWBUFFER,RA1 


0011267 


06 


000230 


051445 






18 




TBS 


N(OWTYPE) (RA1 ) ,S (OWTYPE) 


0011270 












19 




IF 


CF * 1 THEN RETURN TTY NG # GENERIC ADDRESS ILLEGAL 


0011270 


06 


000231 


055002 


0011272 


-001- 


20 






BNC IFS1960 


0011271 


06 


000232 


056467 


TTYTBL 


-002- 


21 






BTSAN TTY_NG 


0011272 










-001- 


22 


IFS1960 




0011272 












25 


PASSED^CK 


. 


0011272 


06 


000233 


110574 






26 




RLN 


R7,4 


0011273 


06 


000234 


016170 


000017 




27 




IRM 


R7,R8,MSK(4) 


0011275 


06 


000236 


006211 






28 




LR 


R8,R9 


0011276 


06 


000237 


006235 






29 




LR 


R9,R13 


0011277 


06 


000240 


010710 






30 




RRN 


R12,8 


0011300 


06 


000241 


016254 


177400 




31 




IRM 


R10,R12,MSK(8,8) 














32 


* R7- 


R11 CONTAINS A 5-WORD DATA ENTRY FOR THE OWBUFFER 


0011302 


06 


000243 


031440 


010052 0010052 




33 




LAL 


R2, OWBUFFER, RA1 


0011304 


06 


000245 


003066 






34 




LN 


R3,N(E0H> 


0011305 


06 


000246 


003106 






35 




LN 


R4,N(E0H) 


0011306 












36 


TESTEOB 
















37 


K R2 


«= TOTAL LENGTH OF ACTIVE OWBUFFER 














38 


n R3 


■ TOTAL LENGTH OF OWBUFFER SCANNED THIS FAR 














39 


n R4 


■ INCREMENT TO GET TO NEXT ORIGIN BLOCK IN OWBUFFER 














40 


# RA1 


= BEGINNING OF LAST ORIGIN BLOCK IN OWBUFFER 


0011306 


06 


000247 


143424 






41 




LAX 


R1,R4(RA1) 


0011307 


06 


000250 


006316 






42 




LR 


RA0,RA1 U SET UP FOR INSERTDATA 


0011310 


06 


000251 


006337 






43 




LR 


RA0+1,RA1+1 


0011311 


06 


000252 


003106 






44 




LN 


R4,6 # SET UP FOR CASE WHERE BRANCH TO INSERT 
DATA OCCURS 


0011312 


06 


000253 


003141 






46 




LN 


R6,1 It CREATE A 6-WORD HOLE TO ENTER 1 ESS WORD 


0011313 












47 




IF 


R3 >= R2 THEN B INSERTDATA 


0011313 


06 


000254 


006003 




-003- 


48 






LR R0,R3 


0011314 


06 


000255 


005002 




-003- 


49 






SR R0,R2 
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D06 


1 




OVERWRITE MULTISCAN FUNCTION 


0:32:20 2/06/81 **** 




INPUT OVERWRITE DATA 


CNRUTL W77D 






» 


0011433 -001- 01 BC INSERTDATA 

03 # IN THE FOLLOWING: 

04 # X IS THE INPUT ADDRESS (INCLUDING SEGMENT NUMBER) IN R7 AND R8 

05 # A IS THE BASE ADDRESS OF THE ORIGIN BLOCK CURRENTLY BEING SCANNED 

06 H L IS THE NUMBER OF WORDS IN THE SAME ORIGIN BLOCK 

07 « A" IS THE BASE ADDRESS OF THE ORIGIN BLOCK FOLLOWING THE CURRENT ONE 






0011316 


08 

09 ft THERE ARE SIX POSSIBLE CASES EACH TIME AN ORGBLK IS EXAMINED. 








10 # THE CASES AND THE ASSOCIATED ACTIONS ARE AS FOLLOWS: 

11 H X>A+L CONTINUE SEARCH WITH NEXT ORGBLK 

12 # (X=A+L)8(X=A'-1) ADD NEW DATA AND MERGE THIS ORGBLK WITH THE FOLLOWING ONE 

13 * (X=A+L)8(X-=A'-1) ADD NEW DATA TO THE END OF THIS ORGBLK 

14 » A<=X<X+L CHANGE DATA IN THIS ORGBLK 

15 # X=A-1 ADD NEW DATA TO THE BEGINING OF THIS ORGBLK 

16 * X<A-1 ADD ORGBLK WITH NEW DATA BEFORE THIS ORGBLK 

18 » IF X > A+L THEN CONTINUE SEARCH 






0011316 06 000257 0A0501 


19 L R4,N(0BLKADR)(RA1> it GET A 






0011317 06 000260 040522 


20 L R5,N(0BLKADR)+1(RA1) 






0011320 


21 ARL R4,R1 U A+L 






0011320 06 000261 001521 


-001- 22 AR R4+1,R1 






0011321 06 000262 055002 


0011323 -001- 23 BNC IFS1965 




• ' 


0011322 06 000263 004501 


-001- 24 AN A4,1 






0011323 


25 IF R7 > R4 THEN B CONTSRCH 






0011323 06 000264 106004 


-003- 26 LR R0,R4 






0011324 06 000265 005007 


-003- 27 SR R0,R7 






0011325 06 000266 055006 


0011333 -001- 28 BNC CONTSRCH 






0011326 


29 IF R7 ■ R4 THEN RGBEGIN 






0011326 06 000267 020164 


■ -002- 30 CR R7,R4 






0011327 06 000270 055012 


0011341 -001-31 BNC IFS1969 






0011330 


32 IF R8 > R5 THEN RGBEGIN 






0011330 06 000271 006005 


-003- 33 LR R0,R5 






0011331 06 000272 005010 


-003- 34 SR R0,R8 






0011332 06 000273 054007 


0011341 -001- 35 BC IFS1971 






0011333 


36 CONTSRCH 

37 R4 ■ R1 /RL 1 + R1 + 3 (C R4 * 3*R1 * 3 






0011333 06 000274 106101 


-004- 38 , LR R4,R1 






0011334 06 000275 010517 


-005- 39 RLN R4,1 






0011335 06 000276 001501 


-004- 40 AR R4,R1 






0011336 06 000277 004503 


-004- 41 AN R4,3 






0011337 06 000300 001464 


42 AR R3,R4 






0011340 06 000301 053746 


0011306 43 B TESTEOB 






0011341 


44 RGEND 






0011341 


-001- 45 IFS1971 






0011341 


46 RGEND 




1 . 


0011341 


-001- 47 IFS1969 




> 
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E06 


OVERWRITE MULTISCAN FUNCTION 












0:32:20 2/06/81 **** 


INPUT 


OVERWRITE DATA 












CNRUTL W77D 














01 


1 IF X 


< A 


THEN CHECK FOR SPECIAL CASE X«A-1 


0011341 


06 


000302 


140501 






02 




L 


R4,N(0BLKADR)(RA1> » LOAD R4,R5 WITH A 


0011342 


06 


000303 


040522 






03 




L 


R5,N(0BLKADR)+1(RA1) 


0011343 












04 




IF 


R7 < R4 THEN B X LT A 


0011343 


06 


000304 


006007 




-003- 


05 






LR R0,R7 


0011344 


06 


000305 


005004 




-003- 


06 






SR R0,R4 


0011345 


06 


000306 




0011353 


-001- 


07 






BNC X LT A 


0011346 












08 




IF 


R7 "= R4 THEN RGBEGIN 


0011346 


06 


000307 


020164 




-002- 


09 






CR R7,R4 


0011347 


06 


000310 


055007 


0011356 


-001- 


10 






BNC IFS1987 


0011350 












11 






IF R8 < R5 THEN RGBEGIN 


0011350 


06 


000311 


006010 




-003- 


12 






LR R0,R8 


0011351 


06 


000312 


005005 




-003- 


13 






SR R0,R5 


0011352 


06 


000313 


054004 


0011356 


-001- 


14 






BC IFS1989 


0011353 












15 


X_LT_A 






0011353 


06 


000314 








16 






LN R4,6 # SET UP FOR X<A CASE 


0011354 


06 


000315 


003141 






17 






LN R6,1 (K CREATE 6-WORD HOLE FOR 1 ESS WORD 


0011355 


06 


000316 


053042 


0011417 




18 






B SPECCASE n CHECK FOR SPECIAL CASE 


0011356 












19 






RGEND U X >= A 


0011356 










-001- 


20 


IFS1989 




0011356 












21 






RGEND * X >» A 


0011356 










-001- 


22 


IFS1987 
















24 


n if a 


<* 


X < A+L THEN CHANGE DATA 


0011356 


06 


000317 


106110 






25 




LR 


R4,R8 


0011357 






26 




SR 


R4,R5 U R4 ■ X - A, ASSUMES DIFFERENCE IS LESS 




















THAN 64K 














28 


R5 


= 


R4 /RL 1 + R4 + 3 « R5=3*R4+3 


0011360 


06 


000321 


006124 




-004- 


2? 






LR R5,R4 


0011361 


06 


000322 


010537 




-005- 


30 






RLN R5,1 


0011362 


06 


000323 


001524 




-004- 


31 






AR R5,R4 


0011363 


06 


000324 


004523 




-004- 


32 






AN R5,3 


0011364 












33 




IF 


R4 -= R1 THEN RGBEGIN 


0011364 


06 


000325 


020101 




-002- 


34 






CR R4,R1 


0011365 


06 


000326 


054023 


0011410 


-001- 


35 






BC IFS2002 


0011366 


06 


000327 


047625 






36 






STAX R9,R5(RA1) * CHANGE DATA 


0011367 


06 


000330 


044641 






37 






ST R10,1(RA1) 


0011370 


06 


000331 


044662 






38 
39 






ST R11,2(RA1) 
SPELL R6,(W,A,R,N) 


0011371 


06 


000332 


003541 001600 


TTYTBL 


-001- 


40 






LI R6,WXARN 


0011373 


06 


000334 


003164 


TTYTBL 




41 






LN R7,TTY OK 


0011374 












42 


INOWDATA 


0011374 












43 






PRINT FMT=(WRD(I,N),WRD(0,W / D / A,T,A),WRD) 












-001- 


45 


n MESSAGE 


PROTOTYPE 












-001- 


46 


1 


mm 


IN OWDATA WRD 


0011374 


173053 




-002- 


47 






BSAI PXMRY n SUBROUTINE PMRY IS IN PROGRAM TTYAPP 


0011375 


06 


000336 


100200 




-002- 


48 






VFD 1,1 2,0 1,0 3,0 1,0 1,1 1,0 2,0 1,0 3,0 


0011376 


06 


000337 


021040 




-002- 


49 






VFD 4,TTY0_ 4,TTY0_ 4,TTY0_ 4,TTY0_WRD 
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ro6 


OVERWRITE MULTISCAN FUNCTION 






0:32:20 2/06/81 **** 






INPUT OVERWRITE DATA 






CNRUTL W77D 






0011377 06 000340 021042 




-002- 01 


VFD 4,TTY0 4,TTY0 4,TTY0 4,TTY0 






0011400 06 000341 010021 


TTYTBL 


-002- 02 


VFD 5,2 11,IXN . 






0011401 06 000342 000203 


TTYTBL 


-002- 03 
-001- 04 


VFD 5, 11,0XWDATA 

NOTE THE VARIABLE PORTION OF THE OUTPUT MESSAGE TO BE PRINTED IS 
CONTAINED IN GENERAL REGISTERS R6, 






0011402 06 000343 106007 




06 


LR R0,R7 






0011403 




07 


RETURN 






0011403 06 000344 056400 




-001- 08 


BTSA 






0011404 




09 INOWDATANG 
10 


SPELL R6,(E,R,R) 






0011404 06 00034S 103541 000307 


TTYTBL 


-001- 11 


LI R6,EXRR 






0011406 06 000347 003167 


TTYTBL 


12 


LN R7,TTY NG 






0011407 06 000350 053765 


0011374 


13 


B INOWDATAERR 




. 


0011410 




14 


RGEND 






0011410 




-001- 15 IFS2002 
17 # X=A+L 


. 






0011410 06 000351 106141 




18 LR 


R6,R1 






0011411 06 000352 004541 




19 AN 


R6,1 # ADD 1 MORE ESS WORD TO THIS ORGBLK 






0011412 06 000353 043405 




20 LAX 


R0,R5(RA1) # ADJUST POINTERS TO END OF ORGBLK, IE, A+L 






0011413 06 000354 001465 




21 AR 


R3,R5 






0011414 06 000355 003103 




22 LN 


R4,3 H CREATE 3-WORD HOLE FOR NEW OATA 






0011415 06 000356 020043 




23 CR 


R2,R3 






0011416 06 000357 054015 


0011433 


24 BC 


INSERTDATA * IF RA1 IS NOW POINTING TO BOTTOM OF 










28 H NEXT THE 


CURRENT BUFFER CONTENTS, DO NOT TRY TO 
MERGE IN 

CHECK FOR THE SPECIAL CASES X»=A-1 OR X=A'-1 WILL BE MADE. 










29 # RA1 POINTS TO BEGINNING OF THIS ORGBLK FOR X<A CASE OR TO THE BEGINNING 










30 # Of NEXT 


ORGBLK FOR X=A+L CASE 






0011417 




31 SPECCASE 








0011417 06 000360 140401 




32 L 


R0,N(0BLKADR)(RA1) # R0,R1=A OR A' 






0011420 06 000361 040422 




33 L 


R1,N(0BLKADR)+KRA1) 






0011421 




34 SNL 


R0,1 U R0,R1=A-1 OR A'-1 






0011421 06 000362 004037 




-001- 35 SN 


RO+1,1 






0011422 06 000363 054002 


0011424 


-001- 36 BC 


IFS2022 






0011423 06 000364 004017 




-001- 37 SN 


R0,1 




. 


0011424 




38 IF 


RO = R7 THEN RGBEGIN 






0011424 06 000365 120007 




-002- 39 


CR R0,R7 






0011425 06 000366 055006 


0011433 


-001- 40 


BNC IFS2023 






0011426 




41 


IF R1 = R8 THEN RGBEGIN * DO RANGE IF X-A-1 OR X«A'-1 






0011426 06 000367 020030 




-002- 42 


CR R1,R8 






0011427 06 000370 055004 


0011433 


-001- 43 


BNC IFS2025 






0011430 06 000371 040400 




44 


L R0,N(0BLKLG)(RA1) 






0011431 06 000372 001540 




45 


AR R6,R0 U ADJUST LENGTH OF THIS ORGBLK TO ACCOUNT FOR 

ADDED DATA OR MERGING BLOCKS 






0011432 06 000373 004115 




47 


SN R4,3 H SPECIAL CASES REQUIRE HOLES WHICH ARE THREE 

WORDS SMALLER 






0011433 




49 


RGEND 




./ 
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OVERWRITE MULTISCAN FUNCTION 












0:32:20 2/06/81 **** 


INPUT OVERWRITE DATA 












CNRUTL W77D 


0011433 






-001- 


01 


IFS2025 






0011*33 • 








02 




RGEND 


. 


0011433 






-001- 


03 


IFS2023 




■ 


0011433 








04 


INSERTDATA 














05 


R1 * 


R2 


♦ R4 it CALCULATE TOTAL BUFFER LENGTH AFTER THIS 
ADDITION 


0011433 06 000374 


106022 




-004- 


07 




LR 


R1,R2 


0011434 06 000375 


001424 




-004- 


08 




AR 


R1,R4 


0011435 








09 


IF 


R1 


>= TBLSIK0WBUFFERH1 THEN RGBEGIN K BUFFER OVERFLOW 


0011435 06 000376 


006001 




-003- 


10 




LR 


R0,R1 


0011436 06 000377 


003400 177012 




-003- 


11 




SI 


R0,TBLSIZ(0WBUFFER)+1 


0011440 06 000401 


055011 


0011451 


-001- 


12 




BNC 


IFS2034 


0011441 








13 




PRINT 


FMT«(WRD(I,N),WRD(0,W / D,A,T,A),WRD(S,T,0,P,P / E,D)) 








-001- 


15 


K MESSAGE 


PROTOTYPE 








-001- 


16 


U mm 


IN 


OWDATA STOPPED 


0011441 06 000402 


073053 




-002- 


17 




BSAI 


PXMRY # SUBROUTINE PMRY IS IN PROGRAM TTYAPP 


0011442 06 000403 


100200 




-002- 


18 




VFD 


1,1 2,0 1,0 3,0 1,0 1,1 1,0 2,0 1,0 3,0 


0011443 06 000404 


021040 




-002- 


19 




VFD 


4,TTY0 4,TTY0 4,TTY0 4,TTY0 WRD 


0011444 06 000405 


021042 




-002- 


20 




VFD 


4,TTY0 4,TTY0 4,TTY0 - 4,TTY0~ 


0011445 06 000406 


014021 


TTYTBL 


-002- 


21 


• 


VFD 


5,3 11,IXN 


0011446 06 000407 


000203 


TTYTBL 


-002- 


22 




VFD 


5, 11,0XWDATA 


0011447 06 000410 


000346 


TTYTBL 


-002- 


23 




VFD 


5, 11,SXT0PPED 








-001- 


24 




NOTE 


THE VARIABLE PORTION OF THE OUTPUT MESSAGE TO BE PRINTED IS 
CONTAINED IN GENERAL REGISTERS 


0011450 








26 




RETURN 


TTY PF 


0011450 06 000411 


156463 


TTYTBL 


-001- 


27 




BTSAN 


TTY_PF 


0011451 








28 




RGEND 




0011451 






-001- 


29 


IFS2034 






0011451 06 000412 


134420 010052 


0010052. 




30 


STL 


R1, 


OWBUFFER # UPDATE POINTER, MESSAGE CANNOT FAIL BEYOND 
















THIS POINT 










32 


U R4 ■ SIZE OF HOLE TO BE CREATED 










33 


n RAO * FIRST ADDRESS OF ORIGIN BLOCK TO BE ADDED OR EXTENDED 










34 


§ RA1 = BEGINNING 


ADDRESS OF HOLE 


0011453 








35 


IF 


R4 


-= 6 THEN ST R6,0(RA0) U UPDATE LENGTH OF ORIGIN BLOCK 


0011453 06 000414 


003505 000006 




-002- 


36 




CI 


R4,6 


0011455 06 000416 


054002 


0011457 


-001- 


37 




BC 


IFS2052 


0011456 06 000417 


044140 




-001- 


38 




ST 


R6,0(RA0) U UPDATE LENGTH OF ORIGIN BLOCK 


0011457 






-001- 


39 


IFS2052 




.R13 # SAVE R13 FOR LATER TEST 


0011457 06 000420 


106135 






40 


LR 


R5, 


0011460 06 000421 


006316 






41 


LR 


RA0,RA1 


0011461 06 000422 


006337 






42 


LR 


RA0+1,RA1+1 


0011462 06 000423 


043424 






43 


LAX 


R1,R4(RA1> 










44 


RO = 


R2 


- R3 H CALCULATE THE NUMBER OF WORDS TO MOVE 


0011463 06 000424 


006002 




-004- 


45 




LR 


R0,R2 


0011464 06 000425 


005003 




-004- 


46 




SR 


R0,R3 


0011465 








47 


CALL MOVST 


0011465 06 000426 


073033 




-001- 


48 


BSAI MXOVST U SUBROUTINE MOVST IS IN PROGRAM CSYSUB 


0011466 








49 


IF 


R5 


=> R13 THEN RGBEGIN 
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ML 



OVERWRITE MULTISCAN FUNCTION 
INPUT OVERWRITE DATA 

0011466 06 000427 120135 

0011467 06 000430 055005 0011474 

0011470 06 000431 044140 

0011471 06 000432 044161 

0011472 06 000433 044202 

0011473 06 000434 041003 

0011474 

0011474 

0011474 06 000435 144220 

0011475 06 000436 044241 

0011476 06 000437 044262 

0011477 06 000440 003002 

0011500 06 000441 034400 010041 0010041 

0011502 

0011502 06 000443 056464 TTYTBL 



0:32:20 2/06/81 #*** 
CNRUTL W77D 



•002- 


01 




CR 


R5,R13 


•001- 


02 




BNC 


IFS2060 




03 




ST 


R6,0(RA0> 




U4 




ST 


R7,1(RA0) 




Ul 




ST 


R8,2(RA0) 




U6 




LA 


R0,3(RA0) 




07 




R6END 


•001- 


08 


IFS2060 








09 


ST 




R9-0(RA0) 
R10,1(RAO) 




10 


ST 






11 


ST 




R1 1,2 (RAO) 




12 


UN 




R0,2 




13 


STL 




RO,SEQKEY 




15 


RETURN 


TTY OK 


001- 


16 


BTSAN 


TTY_OK 



# SET SEQKEY TO ALLOW ALL HESSAGES - AN OW 
HAS BEEN ENTERED 
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I2Z 

OVERWRITE MULTISCAN FUNCTION 

INPUT OVERWRITE 

0011503 01 INOW 

' 02 # THIS MESSAGE HAS TWO FORMS: 

03 # IN:OW nnnnn;TTY! 

04 U IN:OW nnnnn;TAPE! 

05 » THE TTY OPTION INITIATES A NEW OVERWRITE ENTRY AND THE TAPE OPTION 

06 CAUSES A TRANSFER OF AN OVERWRITE FROM THE OVERWRITE FILE TO THE OWBUFFER. 

07 * FOR THE TTY OPTION, THE GENERIC AND ISSUE IDENTIFIERS ARE VERIFIED. 

08 # THIS OPERATION ASSUMES THE GENISS BUFFER HAS BEEN LOADED VIA THE 

09 # IN:GENID AND IN:ISSID INPUT MESSAGES. THE VERIFICATION COMPARES 

10 H THE CONTENT OF THE GENISS BUFFER AND SIMILAR INFORMATION IN THE PATCH 

11 n FILE HEADER. IF THE DATA MISMATCHES, THE REQUEST IS FAILED. 

12 n IF THIS CHECK PASSES OR IF THE TAPE OPTION IS SPECIFIED, THE PATCH FILE 

13 U IS SEARCHED FOR THE EXISTENCE OF AN OVERWRITE WHOSE NUMBER IS nnnnn. 

14 ft SUCH AN OVERWRITE SHOULD BE PRESENT IF THE TAPE OPTION IS SPECIFIED, BUT 

15 » SHOULD NOT EXIST IF THE TTY OPTION IS SPECIFIED. CONSEQUENTLY, THIS 

16 * REQUEST IS FAILED IF THE OVERWRITE EXISTS WHEN IT SHOULD NOT OR VICE VERSA. 

17 # IF ALL THESE CHECKS PASS, THE REQUEST IS HONORED. FOR THE TAPE OPTION, 

18 K THE RECORD IN THE PATCH FILE CONTAINING OVERWRITE NUMBER nnnnn IS COPIED 

19 * TO THE OWBUFFER BUFFER. FOR THE TTY OPTION, THE HEADER FOR THF 

20 K OVERWRITE RECORD IS FORMATTED IN OWBUFFER. THIS CONSISTS OF INSERTING 

21 n THE HEADER LENGTH, THE OVERWRITE NUMBER, AND THE CURRENT TIME OF DAY. 

0011503 23 BEGIN () 

0011503 24 CALL FRSTCHK 

0011503 06 000444 137020 014561 0014561 -001- 25 BSA FRSTCHK 

0011505 26 IF CF ■ THEN RETURN 

0011505 06 000446 154002 0011507 -001- 27 BC IFS2071 

0011506 06 000447 056400 -002- 28 BTSA 

0011507 -001- 29 IFS2071 

0011507 06 000450 106047 30 LR R2,R7 U MOVE OPTIONS 

31 SPELL R2,(T,T,Y),0P=CI 

0011510 06 000451 003445 000261 TTYTBL -001- 32 CI R2,TXTY 

0011512 33 IF CF = 1 THEN RGBEGIN 

0011512 06 000453 055003 0011515 -001- 34 BNC IFS2076 

0011513 06 000454 026160 35 SBN TTY 0P,S(TTY OP) 

0011514 06 000455 053007 0011523 36 B INOWCONT 

0011515 37 RGEND 
0011515 -001- 38 IFS2076 

39 SPELL R2,(T,A,P,E),0P=CI 

0011515 06 000456 103445 000242 TTYTBL -001- 40 CI R2,TXAPE 

0011517 41 IF CF ■ 1 THEN RGBEGIN 

0011517 06 000460 055003 0011522 -001- 42 BNC IFS2081 

0011520 06 000461 022160 43 ZBN TTY OP,S(TTY OP) 

0011521 06 000462 053002 0011523 44 B INOWCONT 

0011522 45 RGEND 
0011522 -001-46 IFS2081 

0011522 47 RETURN TTY NG 

0011522 06 000463 156467 TTYTBL -001- 48 BTSAN TTY~NG 



0:32:20 2/06/81 **** 



CNRUTL 



W77D 
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OVERWRITE MULTISCAN FUNCTION 

INPUT OVERWRITE 

0011523 

0011523 

0011523 06 000464 103601 000347 

0011525 06 000466 037000 014722 0014722 



-001- 
-001- 



C07 



01 INOWCONT 

02 U LR 0WNUM,R6 

03 RTB TTriN 

04 LI RTBPM,*-RTBPM0RG+4 

05 BL ADVPMTTYIN 



0:32:20 2/06/81 **** 
CNRUTL W77D 



(NOT REQUIRED) 



0011527 06 000470 103000 08 ZR 

0011530 06 000471 034400 010041 0010041 09 STL 

0011532 06 000473 003020 11 ZR 

12 OPEN 

0011533 06 000474 037020 126205 CTAPH -002- 13 BSA 

0011535 06 000476 014102 -001- 14 VFD 

0011536 06 000477 050101 -001- 15 VFD 

0011537 06 000500 152303 -001- 16 VFD 

0011540 06 000501 044000 -001- 17 VFD 

0011541 06 000502 155114 0011655 18 BNC 

0011542 1? RTB 
0011542 06 000503 037020 014676 0014676 -001- 20 BSA 



RO 

R0,SEQKEY It LOCK OUT TTY REQUESTS UNTIL 'IN OW COMPL' 

IS GIVEN 
R1 

OVWCLNT,(P,A,T,C,H) 
OPENTCB 

5,0VWCLNT 1,0 1,0 2,0 3,((5+1)/2>+1 1,0 3,C(5+1)/2)-1 
8,ASC P 8,ASC A 
8,ASC T 8,ASC~C 
8,ASC H 8,ASC~ 
REQFAIL 
TAPE 
ADVPMTAPE 



0011544 

0011544 06 000505 124160 

0011545 06 000506 055025 0011572 

0011546 06 000507 073047 

0011547 06 000510 014400 011161 0011161 
0011551 

0011551 06 000512 137020 014676 0014676 



23 IF TTY OP THEN RGBE6IN 

-004- 24 TBN TTY OP, S (TTY OP) 

-002- 25 BNC IFS?089 

26 » VERIFY THE GENERIC AND ISSUE IDENTIFIERS AS RECORDED IN THE GENISS BUFFER. 

27 RD1BLK OVWCLNT,DUMUNLOD 

-002- 28 BSAI RKEQR # SUBROUTINE REQR IS IN PROGRAM CTAPH 

-001- 29 ADDR DUMUNL0D,0VWCLNT*E(7)+R01BLK*E(3) 

30 RTB TAPE 

-001- 31 BSA ADVPMTAPE 



0011553 06 000514 131000 010042 0010042 
0011555 06 000516 031400 045271 CTAPH 



-001- 



34 LAL RO, GENISS, RAO 

35 LAL RO,I OBUF+I 0BUFD+2,RA1 

36 OWPROG OW 0(52(1) § 3E800117 

37 NOTE ************* THE FIRST ADDRESS OVERWRITTEN IS 000520 

********** 



0011557 06 000520 003003 
0011560 



41 
42 

44 
-001- 45 



CHECK THE GENERIC ID. 
LN R0,3 



» SET BX VALUE TO LOOK AT FOUR WORDS, TWO 
CHARACTERS EACH. 
EOW # 3E800117 

NOTE *************** THE LAST ADDRESS OVERWRITTEN IS 000520 
********** 
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D07 






OVERWRITE MULTISCAN FUNCTION 












0:32:20 2/06/81 **** 


INPUT OVERWRITE 












CNRUTL W77D 


0011560 






01 


GENISSLP 






0011560 06 


000521 142020 




02 




LX 


R1,R0(RA0) 




0011561 06 


000522 042440 




03 




LX 


R2,R0(RA1) 




0011562 






04 




IF 


R1 -= R2 THEN B INOWFAIL U IDENTIFIER MISMATCHED 


0011562 06 


000523 020022 


-002- 


05 




CR 


R1,R2 




0011563 06 


000524 055022 0011605 


-001- 


06 




BNC 


INOWFAIL 










07 


OWPROG 


0W 


0(525) 


# 3E800117 






-001- 


08 




NOTE 


************* THE FIRST ADDRESS OVERWRITTEN IS 000525 














********** 










12 


CPATCH7 BGNP 


0(264) 


* 3E800117 


0011564 06 


000525 037000 121522 0000264 


-001- 


13 




BL 


XXX2103 








-001- 


14 




NOTE 


CPATCH7 'CSECT 


r 






-001- 


15 




NOTE 


***************** PATCH AREA BEGINS AT 000264 *************** 
* 


0121522 




-001- 


19 


XXX2103 PATCHAREA 




0121522 14 


000264 136000 011560 0000521 




20 




BX 


RO,GENISSLP 


n GET NEXT SET OF CHARACTERS TO COMPARE 








21 


n now 


CHECK ISSUE 


ID 










22 


# THE 


FIRST TWO CHARACTERS OF THE 


ISSID ON TAPE MUST 








23 


» MATCH ( 


ID'S TYPED IN 


0121524 14 000266 003003 




24 




LN 


R0,3 


U SET BX VALUE TO LOOK AT FOUR WORDS, TWO 

CHARACTERS EACH. 
It POSITION RAO TO AREA HOLDING TYPED IN ISSUE 

ID'S 
It GET ISSUE NUMBER STORED ON TAPE 


0121525 14 


000267 041044 




26 




LA 


R2,4(RA0) 


0121526 14 


000270 041424 




28 




LA 


R1,4(RA1) 


0121527 






2? 


ISSLP 








0121527 14 


000271 142040 




30 




LX 


R2,R0(RA0) 


U GET NEXT TYPED IN ISSUE NUMBER 


0121530 14 


000272 020022 




31 




CR 


R1,R2 


* IS THE ISSUE ID TYPED AND THE ISSUE ID FROM 
TAPE THE SAME ? 


0121531 






33 




IF 


CF -* 1 THEN RGBE 


0121531 14 


000273 054005 0121536 


-001- 


34 




BC 


IFS2105 


■ • 


0121532 14 


000274 036000 121527 0121527 




35 




BX 


RO, ISSLP 


* GET NEXT TWO CHARACTERS FOR COMPARE 


0121534 14 


000276 037000 011605 0000546 




36 




BL 


INOWFAIL 


# FAILURE, NONE OF THE ISSUE ID'S TYPED 
COMPARED TO ISSUE ID FROM TAPE 


0121536 






38 




R6END 






0121536 




-001- 


3? 


IFS2105 






0121536 






40 




ENDP 




n 3E800117 


0121536 14 


000300 137000 011566 0000527 


-001- 


41 




BL 


XXX2107 








-001- 


42 




NOTE 


************ LAST PATCH ADDRESS USED IS 000301 ************** 






-001- 


44 




NOTE 


***** NUMBER OF PATCH WORDS USED IS 14 (DECIMAL) ******** 
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E07 



OVERWRITE MULTISCAN FUNCTION 
INPUT OVERWRITE 



0011566 
0011566 



0011566 06 000527 173047 

0011567 06 000530 016100 137020 
0011570 

0011570 06 000531 137020 014676 0014676 



0011572 
0011572 

0011572 06 000533 106006 

0011573 

0011573 06 000534 003641 000417 
0011575 06 000536 037000 014047 0014047 

0011577 06 000540 124160 

0011600 06 000541 030001 

0011601 06 000542 056000 

0011602 06 000543 153003 0011605 

0011603 06 000544 153004 0011607 

0011604 06 000545 153014 0011620 

0011605 

0011605 06 000546 137000 014630 0014630 



0:32:20 2/06/81 **** 



CNRUTL 



W77D 



■001- 


01 


XXX2107 


OWCONTINUE 




02 




EOW 




•001- 


03 




NOTE 


*************** 
********** 




07 




BACKSP 


OVWCLNT 


002- 


08 




BSAI 


RXE8R 


001- 


09 




VFD 


5, OVWCLNT 4,BAC 




10 




RTB 


TAPE 


001- 


11 

14 




BSA 
R6END 


ADVPMTAPE 


001- 


15 


IFS2089 








16 


LR 


RO, 


OWNUM 




17 


CALLPROC SEARCH 


001- 


18 


LI 


PR0CPM,*-RTBPM0R6+4 


001- 


19 


BL 


SEARCH 



H REPOSITION TAPE FOR SEARCH 

U SUBROUTINE REQR IS IN PROGRAM CTAPH 



21 TBN TTY OP,S(TTY OP) 

22 ICF RO,f 

23 * RO: 0— (TAPE, NOT FOUND) 1--<TAPE, FOUND) 2--(TTY,N0T FOUND) 3~(TTY, FOUND) 

24 BPAX RO 

25 B INOWFAIL » OW SHOULD HAVE EXISTED AND DID NOT 

26 B RDRECORD 

27 B FMTOWBUFFER 

28 INOWFAIL 

29 BL REQFAIL 



0011607 

0011607 

0011607 06 000550 103641 000433 

0011611 06 000552 037000 014117 0014117 

0011613 06 000554 103002 

0011614 06 000555 034400 010041 0010041 
0011616 06 000557 037000 014625 0014625 



33 RDRECORD 

34 » TAPE OPTION— COPY OW RECORD FROM THE PATCH FILE TO OWBUFFER. 

35 CALLPROC RDOWRCRD 

-001- 36 LI PR0CPM,*-RTBPM0RG+4 
-001- 37 BL RDOWRCRD 

38 LN R0,2 

39 STL RO,SE«KEY * SET SEQUENCE KEY TO ALLOW ALL OW MESSAGES 

40 BL REQPASS 



0011620 



0011620 06 000561 171420 46 

0011621 06 000562 031400 043452 CTSD 47 
0011623 48 
0011623 06 000564 037020 110756 CSYSUB -001- 49 



44 FMTOWBUFFER 

45 H TTY OPTION- 
HA 
LAL 
CALL 
BSA 



■FORMAT OW RECORD HEADER IN OWBUFFER. 

RO, YEARS, RA1 

L2 7 

L2_7 
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F07 


OVERHRITE HULTISCAN FUNCTION 




0:32:20 2/06/81 **** 


INPUT OVERHRITE 




CNRUTL W77D 


0011625 06 000566 


110470 01 


RLN 


R3,B 


0011626 06 000567 


016103 177400 02 


IRM 


R4,R3,MSK(8,8) * R4«=M0NTH,DAY 


0011630 06 000571 


010450 03 


RLN 


R2,8 


0011631 06 000572 


016122 177400 04 


IRM 


R5,R2,MSK(8,8) » R5=YEAR,H0UR 


0011633 06 000574 


010550 05 


RLN 


R6,8 


0011634 06 000575 


016147 000377 06 


IRM 


R6,R7,MSK(8) # R6=MINUTES,SEC0NDS 


0011636 06 000577 


072066 07 


GN 


R2+N(0WN0),0HNUM 


0011637 06 000600 


003046 08 


LN 


R2+N(0HTLEN),N(E0H) 


0011640 06 000601 


003160 09 


LN 


R2+N(0HSTAT),0*ES(0HTYPE)+OHINACT*ES<0WSTAT> * INITIALIZE CW 
STATUS TO INACTIVE 4 OH TYPE TO GENERIC 


0011641 06 000602 


035440 010052 0010052 11 


STAL 


R2,0HBUFFER,RA1 


0011643 


12 


CALL 


ST2_7 
ST2 7 


0011643 06 000604 


037020 111011 CSYSUB -001- 13 


BSA 


0011645 06 000606 


171400 14 


GA 




0011646 06 000607 


003001 15 


LN 


R0,1 


0011647 06 000610 


034400 010041 0010041 16 


STL 


RO,SEQKEY tf SET SE8UENCE KEY TO ALLOW IN:OWDATA 
MESSAGE 


0011651 


18 


CALL 


PAPERON 
PAPERON 


0011651 06 000612 


037020 161223 CTTYH -001- 1? 


BSA 


0011653 06 000614 


137000 014625 0014625 20 


BL 


REQPASS 


0011655 ' 


24 


REQFAIL. 




0011655 06 000616 


137000 014630 0014630 25 


8L 


REQFAIL 


COMMON NONRESIDENT UTILITIES 


■ 


■ 
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607 



OVERWRITE MULTISCAN FUNCTION 
OUTPUT OVERWRITE BUFFER 



-001- 



01 0WPR06 OW 

02 NOTE 



0:32:20 2/06/81 **** 
CNRUTL W77D 

0(620) n 12280 

************* the FIRST ADDRESS OVERWRITTEN IS 000620 ********** 



0011657 



0011657 



0011657 



06 
07 
08 
09 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 



0011657 06 000620 137020 014561 0014561 
0011661 



05 OPOW 
THIS MESSAGE HAS TWO FORMS: 

OP:OW;TTY! 

OP:OW;TAPE! 
THE TTY OPTION PRINTS THE CONTENTS OF THE OWBUFFER AS A LINKED TTY 
OUTPUT MESSAGE. THE TAPE OPTION APPENDS THE OVERWRITE RECORD IN OWBUFFER 
TO THE END OF THE PATCH FILE ON TAPE. THE TWO OPTIONS ARE COMPLETELY 
INDEPENDENT. THE CODE TO PERFORM THE TAPE OPTION APPEARS FIRST. THE PATCH 
FILE IS SEARCHED FOR AN OVERWRITE OF THE SAME NUMBER AS THE ONE IN OWBUFFER. 
THE SEARCH SHOULD FAIL. IF IT SUCCEEDS, THIS REQUEST IS FAILED. 
AFTER THE SEARCH, THE TAPE IS POSITIONED AT THE END OF THE PATCH FILE AND THE 
RECORD IN OWBUFFER IS ADDED TO THE FILE. 

THE FIRST LINK PRINTED FOR THE TTY OPTION IS IN OW N, WHERE N IS THE 
NUMBER OF THE OVERWRITE IN OWBUFFER. THIS IS FOLLOWED BY ONE LINK FOR 
EACH ADDRESS CONTAINED IN THE OVERWRITE RECORD IN OWBUFFER. THE TOTAL 
NUMBER IS THE SUM OF THE LENGTHS OF EACH ORGBLK (SEE DESCRIPTION AT 
INOWDATA FOR AN EXPLANATION OF ORGBLK). EACH LINK HAS THE 
IN OWDATA SEG ADR OLD NEW. AFTER ALL THE DATA HAS BEEN 
A NULL LINK IS PRINTED IN ORDER TO TERMINATE THE LINKED OUTPUT MESSAGE. 
25 CALL FRSTCHK 
001- 26 BSA FRSTCHK 

27 EOW ft 12280 

NOTE *************** THE LAST ADDRESS OVERWRITTEN IS 000621 ********** 



SYMBOL 
FORMAT 
TYPED, 



0011661 








31 




IF CF ■ THEN RETURN 


0011661 


06 000622 154002 


0011663 


-001- 


32 




BC IFS2128 


0011662 


06 000623 056400 




-002- 


33 




BTSA 


0011663 






-001- 


34 


IFS2128 


0011663 


06 000624 106047 






35 




LR R2,R7 n MOVE 


0011664 


06 000625 003445 


000261 TTYTBL 


-001- 


36 
37 




SPELL R2,(T,T,Y),0P»CI 
CI R2,TXTY 


0011666 








38 




IF CF = 1 THEN RGBEGIN 


0011666 


06 000627 055003 


0011671 


-001- 


39 




BNC IFS2133 


0011667 


06 000630 026160 






40 




SBN TTY OP, S (TTY OP) 


0011670 


06 000631 053007 


0011677 




41 




6 OPOWGOON 


0011671 








42 




RGEND 


0011671 






-001- 


43 


IFS2133 


0011671 


06 000632 103445 


000242 TTYTBL 


-001- 


44 
45 




SPELL R2,(T,A,P,E),0P*CI 
CI R2,TXAPE 


0011673 








46 




IF CF * 1 THEN RGBEGIN 


0011673 


06 000634 055003 


0011676 


-001- 


47 




BNC IFS2138 


0011674 


06 000635 022160 






48 




ZBN TTY OP,S(TTY OP) 


0011675 


06 000636 053002 


0011677 




49 




B OPOWGOON 
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OVERWRITE MULTISCAN FUNCTION 










0:32:20 2/06/81 **** 




OUTPUT OVERWRITE BUFFER 










CNRUTL W77D 




0011676 












01 




RGEND 






0011676 










-001- 


02 


IFS2138 




■ 




0011676 












03 


RETURN TTY 


NG 




0011676 


06 


000637 


156467 


TTYTBL 


-001- 


04 


BTSAN TTY 


_NG 




0011677 












06 


OPOWGOON 








0011677 












07 


RTB 


TTYIN,2 




0011677 


06 


000640 


103601 


000523 


-001- 


08 


LI 


RTBPM,*-RTBPM0RG+4 




0011701 


06 


000642 


037000 


014714 0014714 


-001- 


09 


BL 


ADVPMTTYIN2 




0011703 












12 


IF 


- TTY OP THEN RGBEuIN 




0011703 


06 


000644 


124160 




-004- 


13 




TBN 


TTY OP, S (TTY OP) 




0011704 


06 


000645 


054033 


0011737 


-002- 


14 




BC 


IFS?143 
















15 


n BEGIN TAPE 




001 1 705 


06 


000646 


003020 






16 
17 




ZR 
OPEN 


R1 

OVWCLNT,(P,A,T,C,H> 

OPENTCB 




0011706 


06 


000647 


037020 


126205 CTAPH 


-002- 


18 




BSA 




0011710 


06 


000651 


014102 




-001- 


19 




VFD 


5,0VWCLNT 1,0 1,0 2,0 3,«5+1)/2)+1 1,0 3,«5+1)/2)-1 




0011711 


06 


000652 


050101 




-001- 


20 




VFD 


8,ASC P 8,ASC A 




0011712 


06 


000653 


152303 




-001- 


21 




VFD 


8,ASC"T 8,ASC C 




0011713 


06 


000654 


044000 




-001- 


22 




VFD 


8,ASC H 8,ASC 




0011714 


06 


000655 


155741 


0011655 




23 




BNC 


REdFAIL H OPEN FAILED 




0011715 












24 




RTB 


TAPE 




0011715 


06 000656 037020 014676 0014676 


-001- 


25 




BSA 


ADVPMTAPE 














-001- 


28 
29 


OWPROG 


OW 
NOTE 


0(660) * 11785 

************* THE FIRST ADDRESS OVERWRITTEN IS 000660 






















********** 
















33 


OWPROG 


BGNP 


0(3707) #11785 




0011717 


000660 


137000 


014746 0014746 


-001- 


34 




BL 


XXX2151 














-001- 


35 




NOTE 


OWPROG 'CSECT' 














-001- 


36 




NOTE 


***************** PATCH AREA BEGINS AT 003707 *************** 

* 




0014746 










-001- 


40 XXX2151 


PATCHAREA 




0014746 


06 


003707 


171420 






41 




HA 


- 




0014747 


06 


043452 CTSD 




42 




LAL 


RO, YEARS, RA1 




0014751 












43 




CALL 


L2_5 




0014751 


06 


003712 


03/020 


110760 CSTSUB 


-001- 


44 




BSA . 


L2_5 




0014753 


06 


003714 


110470 






45 




RLN 


R3,8 




0014754 


06 


003715 


016103 


177400 




46 




IRM 


R4,R3,MSK(8,8) # R4 ■ MONTH,DAY 




0014756 


06 


003717 


010450 






47 




RLN 


R2,8 




0014757 


06 


003720 


016122 


177400 




48 




IRM 


R5,R2,MSK(8,8) It R5 * YEAR, HOUR 




0014761 


06 003722 


031000 


010052 0010052 




49 




LAL 


R0,0WBUFFER,RA0 




COMMON 
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BOS 



OVERWRITE MULTISCAN FUNCTION 
OUTPUT OVERWRITE BUFFER 

0014763 06 003724 04*102 

0014764 06 003725 044123 

0014765 06 003726 003020 

0014766 06 003727 002025 000003 

0014770 06 003731 040001 

0014771 06 003732 071400 

0014772 

0014772 06 003733 037000 011721 0011721 



01 


ST 


02 


ST 


03 


ZR 


04 


STM 


05 


L 


06 


6A 


07 


ENDP 


001- 08 


BL 


001- 09 


NOTE 



-001- 11 



NOTE 



0:32:20 2/06/81 **** 

CNRUTL W77D 

R4,2(RA0) 

R5,3(RA0) 

R1 

R1,N(0WSTAT)<RA0),M<0WSTAT) * ZERO OW STATUS 

RO,N(OWNO)(RA0) 

ft 11785 
XXX2154 
************ (.AST PATCH ADDRESS USED IS 003734 ************** 

* 
***** NUMBER OF PATCH WORDS USED IS 22 (DECIMAL) ******** 



0011721 

0011721 

0011721 06 000662 103641 000545 

0011723 06 000664 037000 014047 0014047 

0011725 



-001- 14 XXX2154 

15 
-001- 16 
-001- 17 

18 
-001- 19 



OWCONTINUE 

CALLPROC SEARCH FIND END OF OVERWRITE FILE 
LI PR0CPM,*-RTBPM0RG+4 
BL SEARCH 

EOW #11785 

NOTE *************** THE LAST ADDRESS OVERWRITTEN IS 000665 
********** 



0011725 06 000666 155010 0011735 23 

0011726 24 
0011726 06 000667 003641 000552 -001- 25 
0011730 06 000671 037000 014210 0014210 -001- 26 

0011732 06 000673 154003 0011735 27 

0011733 06 000674 037000 014625 0014625 28 



BNC OPOWFAIL ft OW ALREADY IN OWFILE 
CALLPROC WRTOWRCRD ft APPEND OWBUFFER TO OWFILE 
LI PR0CPM,*-RTBPM0RG+4 
BL WRTOWRCRD 
BC OPOWFAIL 
BL REQPASS 



0011735 

0011735 06 000676 137000 014630 0014630 

0011737 

0011737 



32 OPOWFAIL 
33 
34 
-001- 35 IFS2143 



BL 
RGEND 



REQFAIL 



0011737 06 000700 131400 010052 0010052 

0011741 06 000702 040541 

0011742 06 000703 003046 

0011743 06 000704 040565 

0011744 06 000705 003562 000003 

0011746 06 000707 040602 

0011747 06 000710 040623 

0011750 06 000711 003240 

0011751 06 000712 051445 

0011752 



39 It BEGIN TTT OPTION CODE. 



40 


LAL 


41 


L 


42 


LN 


43 


L 


44 


NI 


45 


L 


46 


L 


47 


ZR 


48 


TBS 


49 


IF 



RO, OWBUFFER, RA1 

R6,N(0WN0)(RA1) 

OWBPTR,N(EOH) 

R7,N(0WSTAT)(RA1) ft STATUS 

R7,M(0WSTAT) 

R8,2(RA1) ff MONTH,OAY 

R9,3(RA1) If YEAR, HOUR 

R10 

N(0WTYPE)(RA1),S(0WTYPE) 

CF ■ 1 THEN SPELL R10,(T,R,N,S,L,N) 



COMMON NONRESIDENT UTILITIES 
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COS 


OVERWRITE MULTISCAN FUNCTION 










0:32:20 2/06/81 **** 


OUTPUT OVERWRITE BUFFER 










CNRUTL W770 


0011752 


06 000713 


055003 


0011755 


-001- 


01 


BNC 


IFS2161 


0011753 


06.000714 


003641 000260 


TTYTBL 


-002- 


02 


LI 


R10,TXRNSLN 


0011755 








-001- 


03 IFS2161 














04 H 


PRINT FIRST 


LINK IDENTIFYING THE OVERWRITE BY ITS NUMBER. 












05 OWPROG OW 


0(716>,0<717> * 12439 










-001- 


06 


NOTE 


************* THE FIRST ADDRESS OVERWRITTEN IS 000716 ********** 


0011755 










09 


PRINT 


FMT=(WRD(I,N),WRD(0,W>,DEC,DEC,BCD,BCD,WRD),LINK=YES,ZSPRS*NO 










-001- 


11 # 


MESSAGE PROTOTYPE 










-001- 


12 n 


mm 


IN OW cfdddd ddddd nnnn nnnn WRD 


0011755 


06 000716 


173053 




-002- 


13 


BSAI 


PXMRY ft SUBROUTINE PMRY IS IN PROGRAM TTYAPP 


0011756 


06 000717 


110210 




-002- 


14 


VFD 


1,1 2,0 1,1 3,0 1,0 1,1 1,0 2,0 1,1 3,0 


0011757 


06 000720 


104104 




-002- 


15 


VFD 


4,TTY0 BCD 4,TTY0 BCD 4,TTY0 DEC 4,TTY0 DEC 


0011760 


06 000721 


021040 




-002- 


16 


VFD 


4,TTY0~ 4,TTY0 4jTTY0 4,TTY0 WRD 


0011761 


06 000722 


010021 


TTYTBL 


-002- 


17 


VFD 


5,2 117IXN 


0011762 


06 000723 


000202 


TTYTBL 


-002- 


18 


VFD 


5, 11,0XW 










-001- 


19 


NOTE 


THE VARIABLE PORTION OF THE OUTPUT MESSAGE TO BE PRINTED IS 
















CONTAINED IN GENERAL REGISTERS R6,R7,R8,R9,R10, 










-001- 


21 


NOTE 


THIS IS THE FIRST SEGMENT OF A LINKED MESSAGE 


0011763 










22 


EOW 


n 12439 










-001- 


23 


• NOTE 


*************** THE LAST ADDRESS OVERWRITTEN IS 000723 ********* 

* 


0011763 


06 000724 


154672 


0011655 




27 


BC 


REOFAIL It NO TTY WAITING LIST SLOTS AVAILABLE 


0011764 










28 


RTB 


TTYOUT 


0011764 


06 000725 


037020 014672 


0014672 


-001- 


29 


BSA 


ADVPMTTYOUT 


0011766 










32 PRTNXTORGBLK 














33 n 


BEGIN A NEW 


ORGBLK BY SETTING UP POINTERS FOR THE OUTPUT LOOP. 












34 * 


POINTERS INCLUDE THE BASE ADDRESS OF THE BLOCK AND THE NUMBER OF ADDRESSES 












35 # 


CONTAINED IN 


THE BLOCK. 


0011766 


06 000727 


131400 010052 


0010052 




36 


LAL 


R0,0WBUFFER,RA1 


001 1 770 


06 000731 


043462 






37 


LAX 


I0BPTR,0WBPTR(RA1) 


0011771 


06 000732 


040701 






38 


L 


R12,N(0BLKADR)(RA1) 


0011772 


06 000733 


040722 






39 


L 


R13,N(0BLKADR)+1(RA1> 


0011773 


06 000734 


053052 


0012045 




40 


B 


OPOWTTYDEC 


0011774 










42 OPOWTTYLP 




0011774 


06 000735 


131400 010052 


0010052 




43 


LAL 


R0,0WBUFFER,RA1 


0011776 


06 000737 


043402 






44 


LAX 


R0,0WBPTR(RA1) 


0011777 


06 000740 


071420 






45 


HA 


# SAVE CONTROL DATA OVER TTY DATA SET UP 


0012000 


06 000741 


006011 






46 


LR 


RO,TTYLINK # SET UP LINK DATA FOR LPRINT CALL 


0012001 


06 000742 


016574 177760 






47 


LRM 


R7,R12,M(0BLKSEG) H SEGMENT NUMBER 


0012003 


06 000744 


010564 






48 


RRN 


R7,S(0BLKSEG) 


0012004 


06 000745 


006214 






49 


LR 


R8,R12 
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. ■ ■ 



• • 



• • 



DOS 



OVERWRITE MULTISCAN FUNCTION 












0:32:20 2/06/81 **** 


OUTPUT OVERWRITE BUFFER 












CNRUTL W77D 


0012005 06 000746 006235 






01 




LR 


R9,R13 


0012006 06 0007*7 04064* 






02 




L 


R10,N(0LDDH)(RA1) 


0012007 06 000750 0*0665 






03 




L 


R11,N(0LDDL)(RA1) 


0012010 06 000751 04070* 






04 




L 


R12,N(NEWDH)(RA1) 


0012011 06 000752 010710 






05 




RRN 


R12,S(NEWDH) 


0012012 06 000753 0*0723 






06 




L 


R13,N(NEWDL)(RA1) 








07 


H 


PRINT DATA ABOUT ONE ADDRESS. 


0012013 06 00075* 030*22 021637 


TDATA 




08 




LL 


R1,WDSTR 


0012015 06 000756 02*02* 


TDATA 




09 




TBN 


R1,S(WDSTR) 


0012016 






10 




IF 


CF THEN RGBEGIN 


0012016 06 000757 055011 


0012027 


-002- 


11 






BNC IFS2181 


0012017 






12 






LPRINT FMT=(WRD(CR,LF,SP,SP,SP,SP>,WRD(I,N),WRD<0,W,D,A,T,A),DEC,H C 
,L_X,H_D,L_X,H_D,L_X),LINK«=YES,PRI0R=3,ZSPRS=N0 






-001- 


15 


# 


MESSAGE 


PROTOTYPE 






-001- 


16 


n 




CRLFSPSPSPSP IN OWDATA ddddd xxxxx ooxxxx ooxxxx 


0012017 06 000760 07305* 




-002- 


17 






BSAI LXPMRY U SUBROUTINE LPMRY IS IN PROGRAM TTYAPP 






-002- 


18 






VFD 1,1 2,0 1,1 3,0 1,0 1,1 1,0 2,3 1,1 3,0 


0012021 06 000762 062500 




-002- 


1? 






VFD 4,TTY0 L X 4,TTY0 H C 4,TTY0 DEC 4,TTY0 WRD 


0012022 06 000763 06615* 




-002- 


20 






VFD 4,TTY0 L X 4,TTY0~H~D 4,TTY0~L X 4,TTY0~H D 


0012023 06 00076* 01*000 


TTYTBL 


-002- 


21 






VFD 5,3 11,qtzzzz 
VFD 5, 11,IXN 


001202* 06 000765 000021 


TTYTBL 


-002- 


22 






0012025 .06 000766 000203 


TTYTBL 


-002- 
-001- 

-001- 


23 
24 

26 






VFD 5, 11,0XWDATA 

NOTE THE VARIABLE PORTION OF THE OUTPUT MESSAGE TO BE PRINTED IS 

CONTAINED IN GENERAL REGISTERS R7,R8,R9,R10,R11,R12,R13, 
NOTE THIS IS A SEGMENT OF A LINKED MESSAGE 


0012026 06 000767 153010 


0012036 




27 






B OPOWCONT 


0012027 






28 






RGEND 


0012027 




-001- 


29 


IFS2 




0012027 


• 




30 




LPRINT FMT=<WRD(CR,LF,SP,SP,SP,SP),WRD(I,N),WRD(0,W,D,A,T,A),DEC,H CA 














X,SKP,L_X,SKP,L_X),LINK=YES,PRI0R=3,ZSPRS=N0 






-001- 


33 


n 


MESSAGE 


PROTOTYPE 






-001- 


34 


* 




CRLFSPSPSPSP IN OWDATA ddddd xxxxx xxxx xxxx 


0012027 06 000770 17305* 




-002- 


35 




BSAI 


LXPMRY K SUBROUTINE LPMRY IS IN PROGRAM TTYAPP 






-002- 


36 




VFD 


1,1 2,0 1,1 3,0 1,0 1,1 1,0 2,3 1,1 3,0 


0012031 06 000772 062500 




-002- 


37 




VFD 


4,TTY0_L_X 4,TTY0 H C 4,TTY0 DEC 4,TTY0 WRD 


0012032 06 000773 0611*2 




-002- 


38 




VFD 


4,TTY0_L_X 4,TTY0lSKP 4,TT,0J._X 4,TTY0 _ SKP 


0012033 06 00077* 01*000 


TTYTBL 


-002- 


39 




VFD 


5,3 11,qtzzzz 
5, 11,IXN 


001203* 06 000775 000021 


TTYTBL 


-002- 


40 




VFD 


0012035 06 000776 000203 


TTYTBL 


-002- 


41 




VFD 


5, 11,0XWDATA 






-001- 


42 




NOTt 


THE VARIABLE PORTION OF THE OUTPUT MESSAGE TO BE PRINTED IS 














CONTAINED IN GENERAL REGISTERS R7,R8,R9,R11,R13, 






-001- 


44 




NOTE 


THIS IS A SEGMENT OF A LINKED MESSAGE 


0012036 






45 


OPOW< 




0012036 06 000777 171400 






46 




GA 


If RESTORE CONTROL DATA 


0012037 






47 




RTB 


TTYOUT 


0012037 06 001000 037020 014672 001*672 


-001- 


48 




BSA 


ADVPMTTYOUT 
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E08 


OVERWRITE MULTISCAN FUNCTION 










0:32:20 2/06/81 **** 


OUTPUT OVERWRITE BUFFER 










CNRUTL W77D 


00120*1 










01 




ANL 


R12,1 * INCREMENT 20-BIT ADDRESS 


0012041 


06 


001002 


104721 


-001- 


02 




AN 


R12+1,1 


0012042 


06 


001003 


055002 0012044 


-001- 


03 




BNC 


IFS2210 


00120*3 


06 


001004 


004701 


-001- 


0* 




AN 


R12,1 


00120*4 


06 


001005 


104443 




05 




AN 


0W8PTR,3 


00120*5 










06 


OPOW 




00120*5 


06 


001006 


136060 011774 0011774 




07 




BX 


IOBPTR,0POWTTYLP 


00120*7 


06 


001010 


004443 




08 




AN 


0WBPTR,3 


0012050 


06 


001011 


030420 010052 0010052 




09 
10 


# 


LI 
CHECK IF ANT 


R1,OWBUFFER+N(OWTLEN) 
MORE ORGBLKS EXIST. 


0012052 










11 




IF 


OWBPTR < R1 THEN B PRTNXTORGBLK 


0012052 


06 


001013 


006002 


-003- 


12 




LR 


R0,0W8PTR 


0012053 


06 


001014 


005001 


-003- 


13 




SR 


R0,R1 


001205* 


06 


0011/15 


055712 0011766 


-001- 


1* 




BNC 


PRTNXTORGBLK 


0012055 


06 


001016 


006011 




15 
16 


n 


LR 
PRINT FINAL 


R0,TTYLINK tt SET UP LINK DATA FOR LPRINT CALL 
NULL LINK TO TERMINATE THE LINKED OUTPUT MESSAGE. 


0012056 










17 




LPRINT 


FMT=(WRD(CR,LF),WRD(SP,SP,SP,SP)),PRI0R=3 










-001- 


19 


§ 


MESSAGE PROTOTYPE 










-001- 


20 


K 




CRLF SPSPSPSP 


0012056 


06 


001017 


073054 


-002- 


21 




BSAI 


LXPMRY * SUBROUTINE LPMRY IS IN PROGRAM TTYAPP 


0012057 


06 


001020 


100260 


-002- 


22 




VFD 


1,1 2,0 1,0 3,0 1,0 1,1 1,0 2,3 1,0 3,0 


0012060 


06 


001021 


021042 


-002- 


23 




VFD 


*,TTYO 4,TTY0 4,TTY0 4,TTY0 


0012061 


06 


001022 


0210*2 


-002- 


24 




VFD 


4,TTY0~ 4,TTY0 4,TTY0 4,TTY0" 


0012062 


06 


001023 


010000 TTYTBL 


-002- 


25 




VFD 


5,2 H7qt 


0012063 


06 


001024 


000000 137000 TTYTBL 


-002- 
-001- 

-001- 


26 
27 

29 




VFD 
NOTE 

NOTE 


5, 11,zziz 

THE VARIABLE PORTION OF THE OUTPUT MESSAGE TO BE PRINTED IS 

CONTAINED IN GENERAL REGISTERS 
THIS IS THE LAST SEGMENT OF A LINKED MESSAGE 


0012064 


06 


001025 


137000 01*625 001*625 




30 




BL 


RE9PASS 
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F08 


OVERWRITE MULTISCAN FUNCTION 






0:32:20 2/06/81 **** 


CHANGE OVERWRITE STATUS 






CNRUTL W77D 


0012066 




01 ACTOW 






001Z066 • 




02 CNLOW 




. 


0012066 




03 RMVOW 








04 U THESE MESSAGE! 


HAVE THE FOLLOWING FORMS: 


. 


05 # ACT:OW[;UCLJ! 








06 U CNL:OW! 










07 n RMV:OW! 










08 # THESE INPUT MESSAGES CHANGE THE STATUS 


OF AN OVERWRITE ALREADY IN THE 




09 # PATCH FILE. THE STATUS IS RECORDED IN 


THE HEADER OF THE OVERWRITE RECORD. 




10 U IN EACH CASE, 


THE PATCH FILE 


IS SEARCHED FOR AN OVERWRITE WHOSE IDENTIFYING 




11 n NUMBER IS THE 


CURRENT OW NUMBER. IF THE SEARCH FAILS, THIS REQUEST IS FAILED. IF THE SEARCH 




12 # SUCCEEDS, THE 


TAPE BLOCK CONTAINING THE HEADER IS IN THE I OBUF BUFFER. 




13 # THE STATUS IS 


SIMPLY CHANGED 


THERE AND 


THE MODIFIED BLOCK IS WRITTEN BACK 




14 U INTO THE OVERWRI 






0012066 




15 


BEGIN 


O 


0012066 




16 


CALL 


FRSTCHK 


0012066 06 001027 


137020 014561 0014561 


-001- 17 


BSA 


FRSTCHK 


0012070 




18 


IF 


CF = THEN RETURN 


0012070 06 001031 


154002 0012072 


-001- 1? 


BC 


IFS2231 


0012071 06 001032 


056400 


-002- 20 


BTSA --•• - " 


0012072 




-001- 21 IFS2231 




0012072 06 001033 


106047 


22 


LR 


R2,R7 n MOVE OPTION 


0012073 06 001034 


022163 


23 


ZBN 


UCL OP,S(UCL OP) 






24 


SPELL 


R2,7u,C,L),OP=CI 


0012074 06 001035 


003445 001315 TTYTBL 


-001- 25 


CI 


R2,UXCL 


0012076 




26 


IF 


CF ■ 1 THEN SBN UCL OP, S (UCL OP) 


0012076 06 001037 055002 0012100 


-001- 27 


BNC 


IFS2236 


0012077 06 001040 026163 — 


-001- 28 


SBN 


UCL_OP,S(UCL_OP) n 


0012100 




-001- 29 IFS2236 




0012100 06 001041 


130540 010053 0010053 


30 


LL 


OWNUM,0WBUFFER+N(0WNO) 


0012102 




31 


RTB 


TTYIN,2 


0012102 06 001043 


003601 000726 


-001- 32 


LI 


RTBPM,*-RTBPM0RG+4 


0012104 06 001045 


037000 014714 0014714 


-001- 33 


BL 


ADVPMTTYIN2 


0012106 06 001047 


103020 


36 


ZR 


R1 






37 


OPEN 


OVWCLNT,<P,A,T,C,H) 


0012107 06 001050 


037020 126205 CTAPH 


-002- 38 


BSA 


OPENTCB 


0012111 06 001052 


014102 


-001- 39 


VFD 


5,0VWCLNT 1,0 1,0 2,0 3,C(5+1)/2)+1 1,0 3,((5+1>/2)-1 


0012112 06 001053 


050101 


-001- 40 


VFD 


8,ASC P 8,ASC A 


0012113 06 001054 


152303 


-001- 41 


VFD 


8,ASC T 8,ASC~C 


0012114 06 001055 


044000 


-001- 42 


VFD 


8,ASC H 8,ASC~ 


0012115 06 001056 


155540 0011655 


43 


BNC 


RE8FAIL_ U OPEN FAILED 


0012116 




44 


RTB 


TAPE 


0012116 06 001057 


037020 014676 0014676 


-001- 45 


BSA 


ADVPMTAPE 
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608 


OVERWRITE MULTISCAN FUNCTION 










0:32:20 2/06/81 **** 


CHANGE OVERWRITE STATUS 










CNRUTL W77D 


0012120 


06 


001061 106006 






01 




LR 


RO.OWNUM 


0012121 










02 




CALLPROC SEARCH # FIND OW 


0012121 


06 


001062 003641 


000745 


-001- 


03 




LI 


PR0CPM,*-RTBPM0RG+4 


0012123 


06 


001064 037000 


014047 0014047 


-001- 


04 




BL 


SEARCH 


0012125 


06 


001066 154C55 


0012202 




05 




BC 


CHGOWFAIL # OW IS NOT IN OWFILE 


0012126 


06 


001067 031400 


045267 CTAPH 




06 




LAL 


RO,I OBUF+I 0BUFD,RA1 


0012130 


06 


001071 043403 






07 




LAX 


R0,IOBPTR(RA1) 


0012131 


06 


001072 040405 






08 




L 


R0,N(0WSTAT)(RA1) 


0012132 


06 


001073 003421 


000001 




09 
10 




LI 

SPELL 


R1,0WACT*ES (OWSTAT) 
R2,<C,N,L> 


0012134 


06 


001075 003441 


000012 TTYTBL 


-001- 


11 




LI 


R2,CXNL 


0012136 










12 




IF 


R2 = TTYVERB THEN LI R1,0WINACT*ES (OWSTAT) 


0012136 


06 


001077 020044 




-002- 


13 




CR 


R2, TTYVERB 


0012137 


06 


001100 055003 


0012142 


-001- 


14 




BNC 


IFS2245 


0012140 


06 


001101 003421 


000000 


-001- 


15 




LI 


R1,0WINACT*ES (OWSTAT) M 


0012142 








-001- 


16 


IFS2245 




0012142 


06 


001103 117001 


000003 




17 




CRM 


R0,R1,M(OWSTAT> * REJECT ACT:0W AND RMV:OW IF OW IS ACTIVE 
AND CNL:OW IF OW IS NOT ACTIVE 


0012144 


06 


001105 054036 


0012202 




19 
20 




BC 
SPELL 


CHGOWFAIL 
R2,(R,M,V) 


0012145 


06 


001106 003441 


000035 TTYTBL 


-001- 


21 




LI 


R2,RXMV 


0012147 










22 




IF 


R2 ■ TTYVERB THEN LI R1,0WDEAD*ES (OWSTAT) 


0012147 


06 


001110 020044 




-002- 


23 




CR 


R2, TTYVERB 


0012150 


06 


001111 055003 


0012153 


-001- 


24 




BNC 


IFS2250 


0012151 


06 


001112 003421 


000003 


-001- 


25 




LI 


R1,0WDEAD*ES (OWSTAT) » 


0012153 








-001- 


26 


IFS2250 




0012153 


06 


001114 102425 


000003 




27 




STM 


R1,N(0WSTAT)(RA1),M(0WSTAT> 


0012155 


06 


001116 006041 






28 




LR 


R2,R1 * SAVE OWSTAT 


0012156 


06 


001117 040425 






30 




L 


R1,N(0WSTATXRA1) 


0012157 


06 


001120 017420 


003405 




31 




CIRM 


R1,1*ES(0WTYPE)+0WACT*ES<0WSTAT>,0,M<0WTYPE)+M<0WSTAT> # IS A 
TRNSLN OW BEING ACTIVATED 


0012161 










33 




IF 


CF THEN RGBEGIN 


0012161 


06 


001122 055003 


0012164 


-002- 


34 




BNC 


IFS2253 


0012162 


06 


001123 024163 


______ 




35 




TBN 


UCL OP,S(UCL_OP> 


0012163 


06 


001124 055017 


0012202 




36 




BNC 


CHGOWFAIL 


0012164 










37 




RGEND 


0012164 








-001- 


38 


IFS2253 














39 




BACKSP 


OVWCLNT 


0012164 


06 


001125 173047 




-002- 


40 




BSAI 


RXE9R n SUBROUTINE REQR IS IN PROGRAM CTAPH 


0012165 


06 


001126 016100 


137020 


-001- 


41 




VFD 


5, OVWCLNT 4,BACKSP 1,1 1,0 5,0 


0012166 










42 




RTB 


TAPE 


0012166 


06 


001127 137020 014676 0014676 

■ 


-001- 


43 




6SA 


ADVPMTAPE 


COMMON I 


NONRESIDENT UTILITIES 
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OVERWRITE MULTISCAN FUNCTION 
CHANGE OVERWRITE STATUS 



0012170 06 001131 173047 -002- 

0012171 06 001132 014740 137020 -001- 
0012172 

0012172 06 001133 137020 014676 0014676 -001- 



A09 



0:32:20 



2/06/81 **** 



CNRUTL W77D 

01 HRTAB OVWCLNT 

02 BSAI RXE9R K SUBROUTINE REQR IS IN PROGRAM CTAPH 

03 VFD 5,0VWCLNT 4,WRTAB 1,1 1,1 5,0 

04 RTB TAPE 

05 BSA ADVPMTAPE 



0012174 06 001135 131400 010052 0010052 08 
0012176 06 001137 002445 000003 09 

0012200 06 001141 037000. 014625 0014625 10 



LAI R0,0WBUFFER,RA1 

STM R2,N(0WSTAT)<RA1),M(0WSTAT) # UPDATE OW BUFFER COPY 

BL REQPASS 



0012202 

0012202 06 001143 137000 014630 0014630 



14 CHGOWFAIL 

15 BL 



REQFAIL 
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OVERWRITE MULTISCAN FUNCTION 



0:32:20 2/06/81 **** 



LOAD OR VERIFY OVERWRITE 



CNRUTL 



W77D 



0012204 
001220* 



0012204 



0012204 



0012204 



03 


n 


04 


n 


05 


n 


06 


H 


07 


§ 


08 




09 


§ 


10 


* 


11 


* 


12 


» 


13 


n 


14 


H 


15 


K 


16 


n 


17 


n 


18 


n 


19 




20 


tt 


21 


# 


22 


n 


23 


n 


24 


n 


25 


K 


26 


n 


27 


» 


28 


n 


29 


tt 


30 


u 


31 


tt 


32 


tt 


33 


tt 


34 


U 


35 




36 


tt 


37 


tt 


38 


tt 



01 LODOW 

02 VEROW 

THESE MESSAGES HAVE THE FOLLOWING FORMS: 
LOD:0W:OLD! 
LO0:OW:NEW! 
VER:OW:OLD! 
VER:OW:NEW! 

THE ACTION IS ALMOST IDENTICAL IN EACH CASE. EACH LOCATION SPECIFIED IN 
OWBUFFER IS ACCESSED. IF THE LOCATION IS RESIDENT, THE ON-LINE STORE 
LOCATION IS ACCESSED. FOR NONRESIDENT LOCATIONS (SEGMENT NUMBER - = 0) THE 
NON-RESIDENT PROGRAM FILE ON TAPE IS ACCESSED. DURING A VERIFY OPERATION, 
THE DATA CONTAINED IN THE ACCESSED LOCATION IS COMPARED WITH THE DATA FOR 
THAT LOCATION RECORDED IN OWBUFFER. OWBUFFER CONTAINS TWO DATA WORDS 
LABELED OLD AND NEW. THE NEW/OLD OPTION IN THE MESSAGE SPECIFIES WHICH DATA 
WORD IS TO BE USED IN THE COMPARE. ON A LOAD OPERATION, THE APPROPRIATE 
DATA WORD FROM OWBUFFER IS WRITTEN INTO THE ACCESSED LOCATION, THEREBY 
OVERWRITING AND DESTROYING ITS FORMER CONTENTS. 

AN OUTER LOOP (BEGINNING AT SYMBOL 'TSTNXTORGBLK') EXISTS TO CYCLE THROUGH 
ALL OF THE ORGBLKS IN OWBUFFER. THE ORGBLK HEADER DETERMINES IF THE DATA 
WORDS ARE RESIDENT OR NONRESIDENT. THE SUBSEQUENT ACTIONS ARE COMPLETELY 
DIFFERENT FOR THE TWO CASES. AN ORGBLK CONTAINING RESIDENT DATA IS PROCESSED 
BY THE LOOP BEGINNING AT SYMBOL 'VERRESLP'. THE PROCESSING OF A ORGBLK 
CONTAINING NONRESIDENT DATA IS COMPLICATED BY THE NEED TO SEARCH THE TAPE 
WHICH IS FORMATTED INTO PHYSICAL BLOCKS WHICH ARE TOTALLY INDEPENDENT OF THE 
ORGBLKS, IE, AN ORGBLK MAY SPAN TWO TAPE BLOCKS. PROCESSING OF A NEW 
TAPE BLOCK BEGINS BY READING IT AT SYMBOL 'TSTNXTBLK'. THE PROCESSING WITHIN 
A TAPE BLOCK IS PERFORMED BY THE LOOP BEGINNING AT SYMBOL 'TSTNXTADR'. 
IN THIS LOOP THE NONRESIDENT DATA OF INTEREST IS IN THE I OBUF BUFFER AND 
IS MANIPULATED THERE. AT THE END OF EACH TAPE BLOCK ('EOBFND') OR THE END 
OF PROCESSING CLVCOMPL') CHECKS ARE MADE TO DETERMINE IF THE DATA IN I OBUF 
HAS BEEN MODIFIED. IF IT HAS, THIS MODIFIED TAPE BLOCK IS WRITTEN ONTO~THE 
TAPE THEREBY OVERWRITING THE OLD DATA. 

DURING THE PROCESSING OF VERIFIES, THE FIRST DATA MISMATCH CAUSES A BRANCH 
OUT OF THE LOOP TO THE ERROR ROUTINE AT 'VEROWFAIL' WHERE AN ERROR MESSAGE IS 
PRINTED. THE REQUEST IS THEN FAILED. 



0012204 

0012204 

0012204 06 001145 137020 014561 0014561 

0012206 

0012206 06 001147 154002 0012210 

0012207 06 001150 056400 

0012210 

0012210 





42 


BEGIN O 




43 


CALL FRSTCHK 


-001- 


44 


BSA FRSTCHK 




45 


IF CF ■ THEN RETURN 


-001- 


46 


BC IFS2268 


-002- 


47 


BTSA 


-001- 


48 


IFS2268 




49 


AUTOVEROW 
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C09 



OVERWRITE MULTISCAN FUNCTION 
LOAD OR VERIFY OVERWRITE 

0012210 06 001151 106047 

0012211 06 001152 0034*5 001165 TTYTBL 
0012213 

0012213 06 001154 055003 ■ 0012216 

0012214 06 001155 026161 

0012215 06 001156 053007 0012224 

0012216 

0012216 

0012216 06 001157 103445 001200 TTYTBL 
0012220 

0012220 06 001161 055003 0012223 

0012221 06 001162 022161 

0012222 06 001163 053002 0012224 

0012223 

0012223 
0012223 

0012223 06 001164 156467 TTYTBL 

0012224 

0012224 06 001165 122162 

0012225 

0012225 06 001166 003601 001051 
0012227 06 001170 037000 014714 0014714 



0:32:20 2/06/81 **** 



CNRUTL 



W770 





01 


LR R2,R7 IK MOVE OPTION 




0<! 


SPELL R2,(N,E,W),0P*=CI 


•001- 


03 


CI R2,NXEW 




04 


IF CF * 1 THEN RGBEGIN 


•001- 


05 


BNC IFS2273 




06 


SBN NEW OP, S (NEW OP) 




U/ 


B LVOWCONT 




08 


RGENO 


•001- 


0? 


IFS2273 




10 


SPELL R2,<0,L,D),0P=CI 


•001- 


11 


CI R2,0XLD 




12 


IF CF « 1 THEN RGBEGIN 


001- 


13 


BNC IFS2278 




14 


ZBN NEW OP,S(NEW OP) 




15 


B LVOWCONT 




16 


RGEND 


001- 


17 


IFS2278 




18 


RETURN TTY NG 


001- 


19 


BTSAN TTY_NG 




21 


LVOWCONT 




22 


ZBN BLKCHGD,S(BLKCHGD) 




23 


RTB TTYIN,2 


001- 


24 


LI RTBPM,*-RTBPM0RG+4 


001- 


25 


BL ADVPMTTYIN2 



0012231 06 001172 103046 

0012232 06 001173 031420 010052 0010052 
0012234 06 001175 003300 



0012235 06 001176 053011 
0012236 



0012246 



0012236 06 001177 131420 010052 0010052 

0012240 06 001201 042662 

0012241 06 001202 006013 

0012242 06 001203 010417 

0012243 06 001204 001413 

0012244 06 001205 004403 

0012245 06 001206 001440 

0012246 

0012246 06 001207 143662 

0012247 06 001210 004277 

0012250 



28 
29 

30 

32 

34 

35 

36 

37 

38 

39 

-005- 40 

-005- 41 

-005- 42 

-004- 43 

44 

-005- 45 

46 

47 

48 

49 



LN OWBPTR,N(EOH) 
LAL R1,0WBUFF£R,RA1 
ZR R12 



B 



TNOBN 



# INITIALIZE R1 AND RA1 
It R12 IS ASSUMED TO BE THE OLD SEGMENT 
NUMBER 



TSTNXTORGBLK 

tt BEGIN PROCESSING A NEW ORGBLK 

LAL R1,0WBUFFER,RA1 # R1 - TOTAL LENGTH OF ACTIVE OWBUFFER 
LX PR0CSCR,0WBPTR(RA1) # RA1-START OF LAST ORIGIN BLOCK 
# ALSO PROCSCR ■ LENGTH OF NEXT ORIGIN BLOCK 

RO = PROCSCR /RL 1 + PROCSCR + 3 # TOTAL LENGTH OF LAST ORIGIN BLOCK 
LR RO, PROCSCR 
RLN R0,1 
AR RO, PROCSCR 
AN R0,3 

OWBPTR + RO 
AR OWBPTR, RO 



OWBPTR 
TNOBN 



* INCREMENT OWBPTR TO POINT AT NEXT BLOCK 



LAX PROCSCR, OWBPTR(RAI) 

SN PROCSCR, 1 

IF OWBPTR >= R1 THEN B 



« INCREMENT RA1 TO NEXT ORGBLK 

K BX REQUIRES NUMBER OF LOOPS MINUS ONE 

LVCOMPL * COMPLETE IF POINTER EXCEEDS TOTAL 
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OVERWRITE MULTISCAN FUNCTION 










0:32:20 2/06/81 **** 


LOAD 


OR 


VERIFY 


OVERWRITE 










CNRUTL W77D 




















LENGTH 


0012250 


06" 


001211 


006002 




-003- 


02 




LR 


RO,OWBPTR 


0012251 


06 


001212 


005001 




-003- 


03 




SR 


R0,R1 


0012252 


06 


001213 


054234 


0012506 


-001- 


04 




BC 


LVCOMPL 


0012253 


06 


001214 


006034 






05 


LR 


R1, 


R12 H SAVE OLD SEGMENT NUMBER 


001225A 


06 


001215 


040701 






06 


L 


RAO 


,N(0BLKADR)(RA1) 


0012255 


06 


001216 


040722 






07 


L 


RA0+1,N(0BLKADR)+1(RA1) 














08 


* R1 ■ OLD 


SEGMENT 


NUMBER 














09 


n PROCSCR 


= NUMBER 


OF WORDS IN CURRENT ORIGIN BLOCK MINUS ONE 














10 


n RAO ■ BASE ADDRESS OF ORIGIN BLOCK 


0012256 


06 


001217 


040401 






11 


L 


R0,N(0BLKSEG)(RA1> 


0012257 


06 


001220 


003402 


177760 




12 


NI 


RO, 


M(OBLKSEG) H DOES THIS ORGBLK CONTAIN RESIDENT OR 
NONRESIDENT DATA? 


0012261 












14 


IF 


CF 


THEN RGBEGIN K RESIDENT CODE 


0012261 


06 


001222 


055047 


0012330 


-002- 


15 




BNC 


IFS2301 


0012262 












16 


VERRESLP 


















17 


n PROCESS 


AN ORGBLK 


0012262 


06 


001223 


171420 






18 




HA 


. ■ 


0012263 06 


001224 


007316 


______ 




1? 




EXR 


RA0,RA1 .„• --' • 


0012264 


06 


001225 


007337 


______ 




20 




EXR 


RA0+1,RA1+1 


0012265 


06 


001226 


040004 






21 




L 


RO,N(NEWDH)(RAO) 


0012266 


06 


001227 


040023 






I! 




L 


R1,N(NEWDL)(RA0) 


0012267 














IF 


- NEW OP THEN RGBEGIN 


0012267 


06 


001230 


024161 




-004- 


24 




TBN 


NEW OP,S(NEW OP) 


0012270 


06 


001231 


054003 


0012273 


-002- 


25 




BC 


IFS?303 


0012271 


04 


001232 


010410 






26 




RRN 


R0,8 


0012272 


06 


001233 


040025 






27 




L 


R1,N(0LDDL)<RA0) 


0012273 












28 




RGEND 




0012273 










-001- 


29 
30 


IFS2303 


SPELL 


R12,(L,0,D> 


0012273 


06 


001234 


103701 


000024 TTYTBL 


-001- 


31 




LI 


R12,LX0D 


0012275 












32 




IF 


R12 ■ TTTVERB THEN RGBEGIN 


0012275 


06 


001236 


020304 




-002- 


33 




CR 


R12,TTYVERB 


0012276 


06 


001237 


055005 


0012303 


-001- 


34 




BNC 


IFS2310 


0012277 












35 




CALL 


WOPS 


0012277 


06 


001240 


037021 


014361 MASACS 


-001- 


36 




BSA 


WOPS 


0012301 












37 




CALL 


STOPPSAU » STOP MAS AUDIT SO THAT IT DOES NOT CORRECT 
CHANGES 


0012301 


06 


001242 


137020 


003674 CBLM 


-001- 


39 




BSA 


STOPPSAU 


0012303 












40 




RGEND 




0012303 










-001- 


41 
42 


IFS2310 


SPELL 


R12,<V,E,F> 


0012303 


06 


001244 


103701 


000050 TTYTBL 


-001- 


43 




LI 


R12,VXER 


0012305 












44 




IF 


R12 * TTYVERB THEN RGBEGIN 


0012305 


06 


001246 


020304 




-002- 


45 




CR 


R12,TTYVERB 


0012306 


06 


001247 


055014 


0012322 


-001- 


46 




BNC 


IFS2318 


0012307 


06 


001250 


006300 






47 




LR 


R12,R0 


0012310 


06 


001251 


006321 






48 




LR 


R13,R1 


0012311 












49 




CALL 


RDOPS 


COMMON 


NONRESIDENT UTILITIES 










PR-1C954-50 


0:: 


52: 


JO 2/06/81 TRADE SECRET - SEE TRADE SECRET RESTRICTIVE NOTICE ON COVER SHEET CNRUTL ISSUE 05 PAGE 182 



OVERWRITE MULTISCAN FUNCTION 
LOAD OR VERIFY OVERWRITE 



0012311 
0012313 
001231* 
0012315 
0012317 
0012317 
0012320 
0012320 
0012321 
0012322 
0012322 
0012322 
0012323 
0012324 
0O1232S 
0012327 
0012330 
0012330 



06 001252 037021 014406 HASACS 

06 001254 110410 

06 001255 010710 

06 001256 017014 000377 

06 001260 055207 — -— 0012526 

06 001261 020035 

06 001262 055205 0012526 

06 001263 171400 

06 001264 041001 

06 001265 041403 

06 001266 036260 012262 0012262 
06 001270 053707 0012236 



-001- 01 

02 

03 

04 

05 
-002- 06 

07 
-002- 08 
-001- 09 

10 
-001- 11 IFS2318 

12 

13 

14 

15 

16 

17 
-001- 18 IFS2301 



J22_ 



BSA 

RRN 

RRN 

CRM 

IF 

BNC 

IF 

CR 

BNC 

R6EN0 

6A 

LA 

LA 

BX 

B 

RGENO 



0:32:20 2/06/81 **** 
CNRUTL W77D 



RDOPS 

R0,8 

R12,8 

R0,R12,MSK(8) 

- CF THEN B VEROWFAIL 

VEROWFAIL 

R1 ■" R13 THEN B VEROWFAIL 

R1,R13 

VEROWFAIL 



R0,1(RA0) 
R0,3(RA1> 
PROCSCR,VERRESLP 
TSTNXTORGBLK 



U RIGHT ADJUST HIGH BITS 



0012330 06 001271 117001 177760 
0012332 

0012332 06 001273 054057 0012411 

0012333 06 001274 010403 

0012334 06 001275 004017 

0012335 06 001276 031621 146674 SEGOOO 

0012337 06 001300 042620 

0012340 06 001301 003422 177760 
0012342 

0012342 06 001303 055016 0012360 

0012343 06 001304 006031 

0012344 06 001305 037020 126205 CTAPH 

0012346 06 001307 014123 

0012347 06 001310 050101 

0012350 06 001311 043705 

0012351 06 001312 046717 

0012352 06 001313 047000 150400 

0012353 06 001314 150400 014630 0014630 
0012355 

0012355 06 001316 037020 014676 0014676 



22 
23 

25 

-002- 27 
28 
29 
30 
31 
32 
33 

-002- 35 

36 

37 

38 

-002- 39 

-001- 40 

-001- 41 

-001- 42 

-001- 43 

-001- 44 

45 

46 

-001- 47 



H BEGIN PROCESSING A NEW ORGBLK OF NONRESIDENT DATA 



CRM 



R0,R1,M(OBLKSEG) 



IF 



BC 

RRN 

SN 

LAL 

LX 

NI 

IF 

BNC 



IS THE NEXT SEGMENT NUMBER THE SAME AS THE 

LAST 

POSITION ONLY IF NEW SEGMENT IS BEING 

ACCESSED 
IFS2328 

R0,S(0BLKSEG)-1 H R0=2*(SEGMENT NUMBER) 
R0,1 

TTYLINK,SEGTAB,RA1 
TTYLINK,R0(RA1) U R1 ■ LOGICAL BLOCK OF START OF SEGMENT 

IS OBLKSEG=0? 

FIRST NONRESIDENT SEGMENT, THEREFORE OPEN 

TAPE 



CF THEN RGBEGIN 



R1,M(0BLKSEG) 
CF THEN RGBEGIN 



IFS2330 



# SET VP TO OPEN AND WRITE TAPE 
LR 

OPEN 
BSA 
VFD 
VFD 



* GET FILE BLOCK NUMBER OF THIS SEGMENT 



R1,TTYLINK 

OVWCLNT, (P,A,G,E,M,0,N) 

OPENTCB 

5,0VWCLNT 1,0 1,0 2,0 3,((7+1)/2)+1 1,0 3,<(7+1)/2)-1 

8,ASC P C,ASC A 
VFD 8,ASC G 8,ASC E 
VFD 8,ASC M 8,ASC~0 
VFD . 8,ASC N 8,ASC" 
BNCL REQFAIL 
RTB TAPE 
BSA ADVPMTAPE 



COMMON NONRESIDENT UTILITIES 
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F09 



OVERWRITE MULTISCAN FUNCTION 
LOAD OR VERIFY OVERWRITE 



0012357 06 

0012360 

0012360 



001320 153024 0012*03 



0012360 06 001321 103401 000024 TTYTBL 
0012362 

0012362 06 001323 020004 

0012363 06 001324 055013 0012376 

0012364 

0012364 06 001325 024162 

0012365 06 001326 055011 0012376 

0012366 06 001327 073047 

0012367 06 001330 016100 137020 
0012370 

0012370 06 001331 137020 014676 0014676 

0012372 06 001333 173047 

0012373 06 001334 014740 137020 
0012374 

0012374 06 001335 137020 014676 0014676 



0:32:20 2/06/81 **** 



CNRUTL 



W77D 



01 



TSTNXTBLK 





02 






RCEND 


-001- 


03 


IFS2 






04 


n 


THE SEARCH OF I 




05 


§ 


MODIFIED 


, WRITE 




06 






SPELL 


-001- 


07 
08 






LI 
IF 


-002- 


09 






CR 


-001- 


10 

11 






BNC 
IF 


-004- 


12 






TBN 


-002- 


13 

14 






BNC 
BACKSP 


-002- 


15 






BSAI 


-001- 


16 

17 






VFO 

RTB 


-001- 


18 
21 






BSA 
WRTAB 


-002- 


22 






BSAI 


-001- 


23 

24 






VFD 
RTB 


-001- 


25 






BSA 



OBLK IS COMPLETE. .IF ANY OF ITS DATA WAS 
IT BACK ON THE TAPE. 

R0,(L,O,D) 

RO,LXOD 

RO = TTYVERB THEN RGBEGIN 

R0,TTYVERB 

IFS2338 

BLKCHGD THEN RGBEGIN 

BLKCHGD, S (BLKCHGD) 

IFS2341 

OVWCLNT 

RXEQR n SUBROUTINE RE«R IS IN PROGRAM CTAPH 

5, OVWCLNT 4,BACKSP 1,1 1,0 5,0 

TAPE 

ADVPMTAPE 



OVWCLNT 

RXEQR ft SUBROUTINE REQR IS IN PROGRAM CTAPH 

5, OVWCLNT 4,WRTAB 1,1 1,1 5,0 

TAPE 

ADVPMTAPE 



0012376 28 RGEND 

0012376 -001- 29 IFS2341 

0012376 30 RGEND 

0012376 -001- 31 IFS2338 

0012376 06 001337 106031 32 LR R1,TTYLINK * GET FILE BLOCK NUMBER OF THIS SEGMENT 

33 POSITION OVWCLNT 

0012377 06 001340 073047 -002- 34 BSAI RXEQR ft SUBROUTINE REQR IS IN PROGRAM CTAPH 

0012400 06 001341 015100 137020 -001- 35 VFD 5, OVWCLNT 4, POSITION 1,1 1,0 5,0 

0012401 36 RTB TAPE 
0012401 06 001342 137020 014676 0014676 -001- 37 BSA ADVPMTAPE 

0012403 40 TSTNXTBLK 

41 ft READ NEXT TAPE BLOCK INTO I OBUF FOR PROCESSING 

0012403 06 001344 122162 42 ZBN BLKCHGD, S (BLKCHGD) ff INITIALIZE FLAG TO NO CHANGE IN (NEXT) 

BLOCK 

44 RD1BLK OVWCLNT, DUMUNLOD 

0012404 06 001345 073047 -002- 45 BSAI RXEQR It SUBROUTINE REQR IS IN PROGRAM CTAPH 

0012405 06 001346 014400 011161 0011161 -001- 46 ADDR DUMUNLOD, 0VWCLNT*E(7)+R->1BLK*E(3) 
0012407 47 RTB TAPE 

0012407 06 001350 137020 014676 0014676 -001-48 BSA ADVPMTAPE 
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A01 


OVERWRITE MULTISCAN FUNCTION 










0:32:20 2/06/81 **** 


LOAD 


OR 


VERIFY 


OVERWRITE 










CNRUTL W77D 


0012*11 












01 




RGEND 


0012411 










-001- 


02 


IFS2328 






0012411 












03 


TSTNXTADR 


















04 


# SEARCH I 


OBUF FOR ADDRESS OF INTEREST 


0012411 












05 


CALL 


SRCHTB, (ADRFND, EOBFND,VEROWFAILNP) 


0012411 


06 


001352 


137020 


014323 0014323 


-001- 


06 


BSA 




SRCHTB 


0012413 


06 


001354 


156000 




-002- 


07 


BPAX 


RO 


0012414 


06 


001355 


153003 


0012417 


-002- 


08 


B 




ADRFND 


0012415 


06 


001356 


153052 


0012467 


-002- 


09 


B 




EOBFND 


0012416 


06 


001357 


153136 


0012554 


-002- 


10 


B 




VEROWFAILNP 


0012417 












12 


ADRFND 


















13 


n AN AFFECTED 


ADDRESS WAS FOUND, ITS CONTENTS WILL BE COMPARED OR CHANGED. 


0012417 


06 


001360 


126162 






14 


SBN 




BLKCHGD,S(BLKCHGD) # FLAG CHANGE IN THIS BLOCK 


0012420 


06 


001361 


071420 


______ 




15 


HA 






0012421 


06 


001362 


031000 


010052 0010052 




16 


LAL 




RO,OWBUFFER,RA0 


0012423 


06 


001364 


043002 


______ 




17 


LAX 




R0,0WBPTR(RA0) 


0012424 


06 


001365 


006041 


______ 




18 


LR 




R2,R1 U SET UP FOR LDWORD OR STWORD 


0012425 


06 


001366 


005013 






19 


SR 




R0,PROCSCR 


0012426 


06 


001367 


004017 






20 


SN 




R0,1 


0012427 


06 


001370 


043020 






21 


LAX 




R1,R0(RA0) 


0012430 


06 


001371 


043020 






22 


LAX 




R1,R0(RA0) 


0012431 


06 


001372 


043020 






23 


LAX 




R1,R0(RA0) n RA0=RA0+3*(R0-PR0CSCR-1> 


0012432 


06 


001373 


040004 






24 


L 




R0,N(0L0DH)(RA0) 


0012433 


06 


001374 


040025 






25 


L 




R1,N(0LDDL)(RA0) 


0012434 












26 


IF 




NEW OP THEN RGBEGIN 


0012434 


06 


001375 


024161 




-004- 


27 




TBN 


NEW OP, S (NEW OP) 


0012435 


06 


001376 


055003 


0012440 


-002- 


28 




BNC 


IFS2362 


0012436 


06 


001377 


010410 






29 




RRN 


R0,8 


0012437 


06 


001400 


040023 






30 




L 


R1,N(NEWDL)(RA0) 


0012440 












31 




RGEND 


0012440 










-001- 


32 


IFS2362 


















33 


SPELL 


R12,(L,0,D) 


0012440 


06 


001401 


103701 


000024 TTYTBL 


-001- 


34 


LI 




R12,LX0D 


0012442 












35 


IF 




R12 = TTYVERB THEN RGBEGIN 


0012442 


06 


001403 


020304 




-002- 


36 




CR 


R12,TTYVERB 


0012443 


06 


001404 


055002 


0012445 


-001- 


37 




BNC 


IFS2369 














38 


n 


CALL STWORD it FOR 24-BIT PAGEMON FILE 


0012444 


06 


001405 


046422 






39 




STX 


R1,R2(RA1) # FOR 16-8IT PAGEMON FILE 


0012445 












40 




RGEND 


0012445 










-001- 


41 


IFS2369 


















42 


SPELL 


R12,(V,E,R) 


0012445 


06 


001406 


103701 


000050 TTYTBL 


-001- 


43 


LI 




R12,VZER 


0012447 












44 


IF 




R12 = TTYVERB THEN RGBEGIN 


0012447 


06 


001410 


020304 




-002- 


45 




CR 


R12. TTYVERB 
IFS2375 


0012450 


06 


001411 


055012 


0012462 


-001- 


46 




BNC 


0012451 


06 


001412 


006300 






47 




LR 


R12,R0 


0012452 


06 


001413 


006321 






48 




LR 


R13,R1 














49 


* 


CALL LDWORD It FOR 24-BIT PAGEMON FILE 
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B01 






OVERWRITE MULTISCAN FUNCTION 










0:32:20 2/06/81 **** 




LOAD 


OR 


VERIFY 


OVERWRITE 










CNRUTL W77D 




0012453 


06 


001414 


042422 




S 




LX 


R1,R2<RA1) # FOR 16-BIT PAGEMON FILE 




0012454 


06 


001415 


003000 






ZR 


RO # FOR 16-BIT PAGEMON FILE 




0012455 


06 


001416 


017014 000377 




03 




CRM 


R0,R12,MSK(8) 




0012457 










04 




IF 


- CF THEN B VEROWFAIL 




0012457 


06 


001420 


055047 0012526 


-002- 


05 




BNC 


VEROWFAIL 




0012460 










06 




IF 


R1 ■<■ R13 THEN B VEROWFAIL 




0012460 


06 


001421 


020035 


-002- 


07 




CR 


R1,R13 




0012461 


06 


001422 


055045 0012526 


-001- 


08 




BNC 


VEROWFAIL 




0012462 










09 




RGEND 






0012462 








-001- 


10 


IFS2375 








0012462 


06 


001423 


171400 




11 


GA 








0012463 


06 


001424 


041001 




12 


LA 


R0,1 (RAO) 




0012464 


06 


001425 


036260 012411 0012411 




13 


BX 


PROCSCR,TSTNXTADR 




0012466 


06 


001427 


053550 0012236 




14 


B 


TSTNXTORGBLK 




0012467 










16 


EOBFND 


















17 


H THE SEARCH OF I 


OBLK IS COMPLETE. IF ANY OF ITS DATA WAS 














18 


n MODIFIED, 


WRITE 


IT BACK ON THE TAPE. 














19 


SPELL R0,(L,0,D> 




0012467 


06 


001430 


103401 000024 TTYTBL 


-001- 


20 


LI 


R0,LX0D 




0012471 










21 


IF 


RO 


■ TTYVERB THEN RGBEGIN 




0012471 


06 


001432 


020004 


-002- 


22 




CR 


RO,TTYVERB 




0012472 


06 


001433 


055013 0012505 


-001- 


23 




BNC 


IFS2385 




0012473 










24 




IF 


BLKCHGD THEN RGBEGIN 




0012473 


06 


001434 


024162 


-004- 


25 




TBN 


BLKCHGD,S(BLKCHGD) 




0012474 


06 


001435 


055011 0012505 


-002- 


26 
27 




BNC 
BACKSP 


IFS2388 
OVWCLNT 




0012475 


06 


001436 


073047 


-002- 


28 




BSAI 


RXEUR it SUBROUTINE RE8R IS IN PROGRAM CTAPH 




0012476 


06 


001437 


016100 137020 


-001- 


29 




VFD 


5, OVWCLNT 4, BACKSP 1,1 1,0 5,0 




0012477 










30 




RTB 


TAPE 




0012477 


06 


001440 


137020 014676 0014676 


-001- 


31 
34 




BSA 
WRTAB 


ADVPMTAPE 
OVWCLNT 




0012501 


06 


001442 


173047 


-002- 


35 




BSAI 


RXEQR H SUBROUTINE REQR IS IN PROGRAM CTAPH 




0012502 


06 


001443 


014740 137020 


-001- 


36 




VFD 


5, OVWCLNT 4,WRTAB 1,1 1,1 5,0 




0012503 










37 




RTB 


TAPE 




0012503 


06 


001444 


137020 014676 0014676 


-001- 


36 




BSA 


ADVPMTAPE 




0012505 










41 




RGEND 






0012505 








-001- 


42 


IFS2388 








0012505 










43 




RGEND 






0012505 








-001- 


44 


IFS2385 








0012505 


06 


001446 


153676 0012403 




45 


B 


TSTNXTBLK 
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• 



C01 



OVERWRITE MULTISCAN FUNCTION 
LOAO OR VERITY OVERWRITE 
0012506 » 



0012506 06 001447 103401 000024 TTYTBL 
0012510 

0012510 06 001451 020004 

0012511 06 001452 05i ,113 0012524 

0012512 

0012512 06 001453 024162 

0012513 06 001454 055011 0012524 

0012514 06 001455 073047 

0012515 06 001456 016100 137020 
0012516 

0012516 06 001457 137020 014676 0014676 



0:32:20 



2/06/81 **** 



CNRUTL 



W77D 



01 LVCOMPL 

02 * THE PROCESSING OF OWBUFFER IS COMPLETE. IF ANT DATA IN THE LAST 

03 It PROCESSED TAPE BLOCK WAS MODIFIED, THE BLOCK MUST BE WRITTEN BACK ONTO THE 

04 U TAPE. 

05 ft IF THIS IS LOD:OW AND THIS BLOCK CHANGED, WRITE IT BACK OUT 

06 SPELL RO,(L,0,D) 
-001- 07 LI RO,LXOD 

08 IF RO = TTYVERB THEN RGBEGIN 
-002- 09 CR RO, TTYVERB 

-001- 10 BNC IFS2402 

11 IF BLKCHGD THEN RGBEGIN 

-004- 12 TBN BLKCHGD, S (BLKCHGD) 

-002- 13 BNC IFS2405 

14 BACKSP OVWCLNT 

-002- 15 BSAI RXEOR H SUBROUTINE REQR IS IN PROGRAM CTAPH 

-001- 16 VFD 5, OVWCLNT 4,BACKSP 1,1 1,0 5,0 

17 RTB TAPE 

-001- 18 BSA ADVPMTAPE 











21 




WRTAB OVWCLNT 


0012520 


06 


001461 173047 


-002- 


22 




BSAI RXEQR (K SUBROUTINE REQ.R IS IN PROGRAM CTAPH 


0012521 


06 


001462 014740 137020 


-001- 


23 




VFD 5, OVWCLNT 4, WRTAB 1,1 1,1 5,0 


0012522 
0012522 


06 


001463 137020 014676 0014676 


-001- 


24 
25 




RTB TAPE 

BSA ADVPMTAPE 


0012524 








28 




RGEND 


0012524 






-001- 


29 


IFS2405 




0012524 








30 




RGEND 


0012524 






-001- 


31 


IFS2402 




0012524 


06 


001465 137000 014625 0014625 




32 


BL 


REQPASS 


0012526 








36 
37 


VEROWFAIL 
# A VERIFY 


REQUEST HAS DETECTED A DATA MISMATCH. PRINT AN ERROR MESSAGE 










38 


U IDENTIFYING THE LOCATION AND DATA THAT MISMATCHED. 


0012526 


06 


001467 172214 




39 


GN 


R8,12 H GET ADDRESS BEING VERIFIED 


0012527 


06 


001470 072235 




40 


GN 


R9,13 


0012530 


06 


001471 016570 177760 




41 


LRM 


R7,R8,M(0BLKSEG> 


0012532 


06 


001473 010564 




42 


RRN 


R7,S(0BLKSEG) M SET UP SEGMENT NUMBER 


0012533 


06 


001474 006240 




43 


LR 


R10,R0 H GENERIC DATA 


0012534 


06 


001475 006261 




44 


LR 


R11,R1 










45 


K R12,R13 ■ TYPED DATA 










46 


SPELL R6,<E.R.R) 


0012535 


06 


001476 003541 000307 TTYTBL 


-001- 


47 


LI 


R6,EXRR 


0012537 


06 


001500 030402 021637 TDATA 




48 


LL 


R0,WDSTR 


0012541 


06 


001502 024004 TDATA 




49 


TBN 


R0,S(WDSTR) 
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001 


OVERWRITE MULTISCAN FUNCTION 












0:32:20 2/06/81 **** 


LOAD OR VERIFY OVERWRITE 












CNRUTL W77D 


0012542 




01 






IF 


CF THEN RGBEGIN 


0012542 06 001503 055006 — 0012550 


-002- 


02 








BNC IFS2420 






03 


OWPR 




OW O(1504),O(1505) # 12439 




-001- 


04 








NOTE ************* THE FIRST ADDRESS OVERWRITTEN IS 001504 
********** 


0012543 




08 








PRINT FMT=(WRD,WRD,WRD,DEC,H_C,LJC,H_D,L_X,H_D,LJ(),ZSPRS=NO 




-001- 


10 


n 


MESSAGE 


PROTOTYPE 




-001- 


11 


tt 




Dim 


WRD WRD WRD ddddd xxxxx ooxxxx ooxxxx 


0012543 06 001504 073053 


-002- 


12 








BSAI PXMRY ti SUBROUTINE PMRY IS IN PROGRAM TTYAPP 


0012544 06 001505 010200 


-002- 


13 








VFD 1,0 2,0 1,1 3,0 1,0 1,1 1,0 2,0 1,0 3,0 


0012545 06 001506 062500 


-002- 


14 








VFD 4,TTY0 L X 4,TTY0 H t 4,TTY0 DEC 4,TTY0 WRD 


0012546 06 001507 066154 


-002- 
-001- 


15 
16 








VFD 4,TTY0 L X 4,TTY0 H D 4,TTY0~L X 4,TTY0 H D 

NOTE THE VARIABLE PORTION OF THE OUTPUT MESSAGE TO BE PRINTED IS 














CONTAINED IN GENERAL REGISTERS R4,R5,R6,R7,R8,R9,R10,R11 ,R1 
,R13, 


0012547 


-001- 


19 
20 








EOW H 12439 

NOTE *************** THE LAST ADDRESS OVERWRITTEN IS 001507 
********** 


0012547 06 001510 153005 0012554 




24 








B VEROWFAILNP 


0012550 




25 








RGEND 


0012550 


-001- 


26 


IFS2420 








27 


OWPROG 


OW 


0(1511), 0(1512) If 12439 




-001- 


28 






NOTE ************* THE FIRST ADDRESS OVERWRITTEN IS 001511 ********** 


0012550 




31 






PRINT FMT=(WRD, WRD, WRD, DEC, H_C,L_X,SKP,L_X,SKP,L JO, ZSPRS=NO 




-001- 


33 


* 


MESSAGE 


PROTOTYPE 




-001- 


34 


n 




Mm 


WRD WRD WRD ddddd xxxxx xxxx xxxx 


0012550 06 001511 173053 


-002- 


35 






BSAI PXMRY n SUBROUTINE PMRY IS IN PROGRAM TTYAPP 


0012551 06 001512 010200 


-002- 


36 






VFD 


1,0 2,0 1,1 3,0 1,0 1,1 1,0 2,0 1,0 3,0 


0012552 06 001513 062500 


-002- 


37 






VFD 


4,TTY0 L X 4,TTY0 H C 4,TTY0 DEC 4,TTY0 WRD 


0012553 06 001514 061142 137000 


-002- 


38 






VFD 


4,TTY0 L X 4,TTY0~SKP 4,TTY0 - L X 4,TTY0~SKP 




-001- 


39 






NOTE 














CONTAINED IN GENERAL REGISTERS R4,R5,R6,R7,R8,R9,R11,R13, 


0012554 




41 






EOW 


U 12439 




-001- 


42 






NOTE *************** THE LAST ADDRESS OVERWRITTEN IS 001514 ********* 

*, 
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E01 


OVERWRITE MULTISCAN FUNCTION 






LOAD OR VERIFY OVERWRITE 






0012554 

001255* 06 001515 137000 014630 0014630 


01 VEROWFAILNP 

02 BL 


REQFAIL 









0:32:20 2/06/81 **** 
CNRUTL W77D 
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J8L 



OVERWRITE MULTISCAN FUNCTION 

INITIALIZE, UPDATE, OR OUTPUT THE OVERWRITE FILE 



0:32:20 2/06/81 **** 



CNRUTL 



W77D 



0012556 
0012556 
0012556 

0012556 

0012556 



0012556 
0012556 



0012556 
0012556 



0012556 



0012556 



0012556 



04 
05 
06 
07 
08 
09 
10 
11 
12 
13 
14 
15 
16 
17 
18 
1? 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
4? 
43 
44 
45 
46 
47 
48 
49 



01 OPOWFILE 

02" INITOWFI 

03 UPDOWFIL 

It THESE MESSAGES HAVE THE FOLLOWING FORMS AND PURPOSES: 

H INIT:OWFILE! 

* THE HEADER OF THE PATCH FILE IS FORMATTED AND WRITTEN ONTO TAPE. THIS 

* OPERATION INITIALIZES THE FILE AND MUST PRECEDE ANY OTHER PATCH FiLE OPERATION 
U ON A NEW TAPE. IF THIS OPERATION IS REQUESTED WHEN THE PATCH FILE ALREADY 

It CONTAINS OVERWRITES, ALL PREVIOUS RESIDENT OVERWRITES ARE WIPED OUT AS ARE 
H ALL RECORDS OF NONRESIDENT OVERWRITES. IF IT IS DESIRED THAT THE PATCH FILE 
If HEADER CONTAIN THE IDENTITY OF THE GENERIC AND ISSUE CONTAINED ON THE TAPE, 
It THIS INFORMATION MUST BE ENTERED PRIOR TO THIS REQUEST VIA THE IN:GENID AND 

* IN:ISSID TTY MESSAGES. 

If UPD:OWFILE! 

* THIS OPERATION IS IDENTICAL TO INIT:OWFILE EXCEPT THAT NO OVERWRITES 

* ARE LOST. THE FILE HEADER IS READ, MODIFIED, AND REWRITTEN. THE MODIFICATION 
If CONSISTS OF UPDATING THE GENERIC AND ISSUE IDENTIFIERS. THE NEW IDENTIFIERS 
It MUST HAVE BEEN ENTERED PRIOR TO THIS REQUEST VIA THE IN:GENID AND IN:ISSID 

H TTY MESSAGES. 

H OP:OWFILE! or OP:0WFILE(mm,dd,yy),trnsln! 

H THIS MESSAGE IS USED TO PRINT A CENSUS OF THE OVERWRITE FILE ON THE TTY. 
H THE CENSUS CONSISTS OF A HEADER LINE, TWO LINES TO SPECIFY THE GENERIC AND 
H ISSUE IDENTIFIERS, AND A LINE FOR EACH OVERWRITE IN THE FILE. THE INFORMATION 
H PRINTED FOR EACH OVERWRITE INCLUDES ITS NUMBER, ITS STATUS, AND THE DATE AND 
H HOUR ON WHICH IT WAS FIRST ENTERED. 

H AS AN ADDITIONAL OPTION, A SHORT CENSUS CAN BE PRINTED WHICH WILL 

* LIST ONLY THOSE OVERWRITES ENTERED AFTER A CERTAIN DATE, AND/OR ONLY 

U TRNSLN OVERWRITES. (SEE THE MESSAGE DESCRIPTION IN THE IM/OM SECTION). 

If AS NOTED ABOVE, INIT:OWFILE AND UPD:OWFILE ARE VIRTUALLY IDENTICAL. THEY 
K SHARE THE SAME CODE EXCEPT FOR THE STATEMENT WHICH WRITES AN OVERWRITE 
n END-OF-FILE FLAG IMMEDIATELY FOLLOWING THE HEADER DURING EXECUTION OF 

* INIT:OWFILE. ThESE TWO OPERATIONS ARE DIFFERENTIATED FROM EACH OTHER AND 
H FROM THE OP:OWFILE REQUEST BY INTERROGATING THE TTY INPUT VERB. 

K THE EXECUTION OF THE OP:OWFILE ROUTINE IS INDEPENDENT OF THE OTHER TWO EXCEPT 

» THAT IT SHARES THE CODE TO OPEN AND CLOSE THE FILE. 

U THE FIRST THREE OUTPUT LINES ARE PRINTED LINEARLY. THE LINES FOR EACH 

n OVERWRITE ARE PRINTED IN THE LOOP AT SYMBOL 'RDRCDLP'. THE PROCEDURE 

* 'RDOWRCRD' IS CALLED REPEATEDLY TO READ AN OVERWRITE FROM THE FILE INTO 

It OWBUFFER. THE INFORMATION IS RETRIEVED FROM THAT BUFFER AND THE PRINT ROUTINE 
It IS CALLED. EVENTUALLY, RDOWRCRP ENCOUNTERS THE OVERWRITE END-OF-FILE MARK AND 
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501 


OVERWRITE MULTISCAN FUNCTION 










0:32:20 2/06/81 **** 


INITIALIZE, UPDATE, OR OUTPUT THE OVERWRITE FILE 






CNRUTL W77D 






01 # RETURNS THAT INDICATION 


TO THE OP:0WFILE ROUTINE WHICH THEN TERMINATES. 








05 


§ 


R6 


= mm (BCD) 








06 


» 


R? 


■ dd (BCD) 








07 


1 


R8 


•= yy (BCD) 








08 


1 


R9 


■ TRNSLN 




0012556 






09 






BEGIN 





0012556 






10 






CALL 


FRSTCHK 


0012556 06 


001517 


137020 014561 0014561 


-001- 11 






BSA 


FRSTCHK 


0012560 






12 






IF 


CF = THEN RETURN 


0012560 06 


001521 


154002 0012562 


-001- 13 






BC 


IFS2445 


0012561 06 


001522 


056400 


-002- 14 






BTSA 


0012562 






-001- 15 


IFS2 




0012562 06 


001523 


106006 


16 






LR 


R0,R6 


0012563 06 


001524 


010410 


17 






RLN 


R0,8 


0012564 06 


001525 


016007 000377 


18 






IRM 


R0,R7,MSK(8) * RO * mmdd 


0012566 06 


001527 


006030 


19 






LR 


R1,R8 


0012567 06 


001530 


010430 


20 






RLN 


R1,8 * R1 « yyOO 


0012570 






21 






CALL 


PACKDATE 


0012570 06 


001531 


037020 014576 0014576 


-001- 22 






BSA 


BACKDATE 


0012572 06 


001533 


106140 


23 






LR 


R6,R0 


0012573 06 


001534 


003160 


24 
25 






ZR 
SPELL 


TRN OP 
R9,7T,R,N,S,L,N),0P=CI 


0012574 06 


001535 


003625 000260 TTYTBL 


-001- 26 






CI 


R9,TXRNSLN 


0012576 06 


001537 


030164 


27 






ICF 


TRN OP, S (TRN OP) 


0012577 






28 






RTB 


rrriN 


0012577 06 


001540 


003601 001423 


-001- 29 






LI 


RTBPM,*-RTBPM0RG+4 


0012601 06 


001542 


037000 014722 0014722. 


-001- 30 






BL 


ADVPMTTYIN 








33 


tt 


R6 


■ DATE (BINARY) 








34 


f 


TRN 


OP* ' IF 


TRNSLN REQUEST 


0012603 06 


001544 


103000 


35 






ZR 


RO 


0012604 06 


001>45 


034400 010041 0010041 


36 






STL 


RO,SE«KEY U LOCKOUT ALL OW MESSAGES EXCEPT IN:0W 


0012606 06 


001547 


003020 


37 
38 






ZR 
OPEN 


R1 It POSITION TAPE AT BEGINNING OF FILE 
OVWCLNT,(P,A,T,C,H) 


0012607 06 


001550 


037020 126205 fTAPH 


-002- 39 






BSA 


OPENTCB 


0012611 06 


001552 


014102 


-001- 40 






VFD 


5,0VWCLNT 1,0 1,0 2,0 3,((5+1)/2)+1 1,0 3,( .'5+1)/2)-1 


0012612 06 


001553 


050101 


-001- 41 






VFD 


8,ASC P 8,ASC A 


0012613 06 


001554 


152303 


-001- 42 






VFD 


8,ASC T 8,ASC~C 


0012614 06 


001555 


044000 150400 


-001- 43 






VFD 


8,ASC H 8,ASC 


0012615 06 


001556 


150400 014630 0014630 


44 






BNCL 


REOFAIL 


0012617 






45 






RTB 


TAPE 


0012617 06 


001560 


037020 014676 0014676 


-001- 46 






BSA 


ADVPMTAPE 
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A02,, 




OVERWRITE MULTISCAN FUNCTION 






0:32:20 2/06/81 **** 


INITIALIZE, UPDATE, 01 


t OUTPUT THE OVERWRITE FILE 




CNRUTL W77D 




i 








01 


RD1BLK OVWCLNT,DUMUNLOD 


0012621 


06 


001562 


173047 




-002- 02 


BSAI RXEQR « SUBROUTINE REQR IS IN PROGRAM CTAPH 


0012622 


06 


001563 


014400 


011161 0011161 


-001- 03 


ADDR DUMUNL0D,0VWCLNT*E(7)+RD1BLK*E<3) 


0012624 










04 


RTB TAPE 


0012624 


06 


001565 


137020 


014676 0014676 


-001- 05 


BSA ADVPMTAPE 












08 


SPELL RO, 


(0,P) 


0012626 


06 


001567 


103401 


000027 TTYTBL 


-001- 0? 


LI RO, 


OXP 


0012630 










10 


IF RO 


-= TTYVER8 THEN RGBEGIN 


0012630 


06 


001571 


020004 


hi i 


-002- 11 


CR 


RO,TTYVERB 


0012631 


06 


001572 


054032 


0012663 


-001- 12 


BC 


IFS2461 












13 n FORMAT PATCH FILE HEADER 


0012632 


06 


001573 


003014 




14 


LN 


R0,12 


0012633 


06 


001574 


003421 


177777 


15 


LI 


R1,MSK(16) 


0012635 


06 


001576 


035400 


045267 CTAPH 


16 


STAL 


RO,I OBUF+I 0BUFD,RA1 


0012637 


06 


001600 


044421 




17 
18 


ST 
SPELL 


R1,1?RA1) 
R2,(I,N,I,T) 


0012640 


06 


001601 


003441 


000023 TTYTBL 


-001- 19 


LI 


R2,IXNIT 


0012642 










20 


IF 


R2 = TTYVERB THEN STX R1,R0(RA1> * MARK END OF ACTIVE 
OVERWRITE FILE 


0012642 


06 


001603 


020044 




-002- 22 


CR 


R2, TTYVERB 


0012643 


06 


001604 


055002 


0012645 


-001- 23 


BNC 


IFS2466 


0012644 


06 


001605 


046420 




-001- 24 


STX 


R1,R0(RA1) * MARK END OF ACTIVE OVERWRITE FILE 


0012645 










-001- 25 IFS2466 




0012645 


06 


001606 


141402 


______ 


26 


LA 


R0,2(RA1) » SETUP FOR MOVST 


0012646 


06 


001607 


031000 


010042 0010042 


27 


LAL 


R0,6ENISS,RA0 


0012650 


06 


001611 


003010 


______ 


28 


LN 


RO,TBLSIZ(GENISS) 


0012651 










29 


CALL 


MOVST 


0012651 


06 


001612 


073033 




-001- 30 
31 


BSAI 
BACKSP 


MX'OVST U SUBROUTINE MOVST IS IN PROGRAM CSYSUB 
OVWCLNT 


0012652 


06 


001613 


173047 




-002- 32 


BSAI 


RXEQR U SUBROUTINE REQR IS IN PROGRAM CTAPH 


0012653 


06 


001614 


016100 


137020 


-001- 33 


VFD 


5, OVWCLNT 4,BACKSP 1,1 1,0 5,0 


0012654 










34 


RTB 


TAPE 


0012654 


06 


001615 


137020 014676 0014676 


-001- 35 


. BSA 


ADVPMTAPE 












38 


WRTAB 


OVWCLNT 


0012656 


173047 




-002- 39 


BSAI 


RXEQR H SUBROUTINE REQR IS IN PROGRAM CTAPH 


0012657 


06 


001620 


014740 


137020 


-001- 40 


VFD 


5,0VWCLNT 4,WRTAB 1,1 1,1 5,0 


0012660 










41 


RTB 


TAPE 


0012660 


06 


001621 


137020 014676 0014676 


-001- 42 


BSA 


ADVPMTAPE 


0012662 


06 


001623 


153212 


0013074 


45 


B 


OPOWFILEPASS 


0012663 










46 


RGEND 


■ ' , 


0012663 










-001- 47 IFS2461 


» 
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_J02_ 


OVERWRITE MULTISCAN FUNCTION 










0:32:20 2/06/81 **** 


INITIALIZE, UPDATE, Of 


OUTPUT THE OVERWRITE FILE 






CNRUTL W770 








01 


f 


OP: 


OWFILE ROUTINE 








02 


I 


R6 


•= PACKED 


VERSION OF DATE REQUESTED 








03 


f 


PRINT 


ON TTY 


0012663 06 


001624 122167 




04 






ZBN 


OWFILSW,S(OWFILSW) (K OP:OWFILE PRINT SWITCH OFF 


0012664 06 


001625 071420 




05 






HA 




0012665 






06 






IF 


R6 -= THEN SPELL R6,(S,E,L,C,T) 


0012665 06 


001626 014146 




-002- 07 






TZ 


R6 


0012666 06 


001627 054003 


0012671 


-001- 08 






BC 


IFS2476 


0012667 06 


001630 003541 


001247 TTYTBL 


-002- 09 






LI 


R6,SXELCT 


0012671 






-001- 10 


IFS2 




0012671 






11 






IF 


TRNJJP = 1 THEN SPELL R6,(S,E,L,C,T> 


0012671 06 


001632 124164 




-003- 12 






TBN 


TRN OP,S(TRN OP) 


0012672 06 


001633 055003 


0012675 


-001- 13 






BNC 


IFS-481 


0012673 06 


001634 003541 


001247 TTYTBL 


-002- 14 






LI 


R6,SXELCT 


0012675 






-001- 15 


IFS2 




0012675 06 


001636 130400 


045270 CTAPH 


16 






LL 


RO,I OBUF+I 08UFD+1 


0012677 06 


00164C 004401 


______ 


17 






AN 


R0,1 


0012700 






18 






IF 


CF ■ THEN SPELL R6,<E,R,R) 


0012700 06 


001641 054003 


0012703 


-001- 19 






BC 


IFS2487 


0012701 06 


001642 003541 


000307 TTYTBL 


-002- 20 






LI 


R6,EXRR 


0012703 






-001- 21 


IFS2 




0012703 






22 






PRINT 


FMT=(WRD,WRD,WRD),LINK=YES 








-001- 24 


f 


MESSAGE PROTOTYPE 








-001- 25 







mm 


WRD WRD WRD 


0012703 06 


001644 173053 




-002- 26 






BSAI 


PXMRY # SUBROUTINE PMRY IS IN PROGRAM TTYAPP 


0012704 06 


001645 000210 




-002- 27 






VFD 


1,0 2,0 1,0 3,0 1,0 1,1 1,0 2,0 1,1 3,0 


0012705 06 


001646 021040 




-002- 28 






VFD 


4,TTY0_ 4,TTY0_ 4,TTY0_ 4,TTY0 WRD 


0012706 06 


001647 021042 




-002- 29 
-001- 30 

-001- 32 






VFD 
NOTE 

NOTE 


4,TTY0 4,TTY0 4,TTY0 4,TTY0 

THE VARIABLE PORTION OF THE OUTPUT MESSAGE TO BE PRINTED IS 

CONTAINED IN GENERAL REGISTERS R4,R5,R6, 
THIS IS THE FIRST SEGMENT OF A LINKED MESSAGE 


0012707 06 


001650 171400 




33 






GA 




0012710 06 


001651 054166 


0013076 


34 






BC 


OPOWFILEFAIL 


0012711 






35 






RTB 


TTYOUT 


0012711 06 


001652 037020 


014672 0014672 


-001- 36 






BSA 


ADVPMTTYOUT 


0012713 06 


001654 171420 




39 






HA 




0012714 06 


001655 006011 




40 






LR 


RO,TTYLINK 


0012715 06 


001656 031140 045271 CTAPH 


41 






LAL 


R6,I0BUF+I_0BUFD+2,RA0 # LOAD GENERIC IDENTIFIER 


0012717 06 


001660 040161 




42 






L 


R7,1?RA0) 


0012720 06 


001661 040202 




43 






L 


R8,2(RA0) 


0012721 06 


001662 040223 




44 






L 


R9,3(RA0) 


0012722 






45 






LPRINT 


FMT=(WRD(CR,LF,SP,SP,SP,SP),WRD(G,E,N,I,D),ASC,ASC,ASC,ASC),LINK 
=YES,PRI0R=3 
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C02 


OVERWRITE MULTISCAN FUNCTION 






0:32:20 2/06/81 **** 


INITIALIZE, UPDATE, OR OUTPUT THE OVERWRITE FILE 


CNRUTL W77D 






-001- 01 


If MESSAGE PROTOTYPE 






-001- 02 


# 


CRLFSPSPSPSP GENID aaaaaaaa 


0012722 


06 001663 073054 


-002- 03 


BSAI 


LXPMRY # SUBROUTINE LPMRY IS IN PROGRAM TTYAPP 


0012723 


06 001664 100270 


-002- 04 


VFD 


1,1 2,0 1,0 3,0 1,0 1,1 1,0 2,3 1,1 3,0 


0012724 




-002- 05 


VFD 


4,TTY0 ASC 4,TTY0 ASC 4,TTY0 ASC 4,TTY0_ASC 


0012725 


06 001666 021042 


-002- 06 


VFD 


4,TTY0~ 4,TTY0_ 47TTYO_ 4,TTY0_ 


0012726 


06 001667 010000 TTYTBL 


-002- 07 


VFD 


5,2 11,qtzzzz 
5, 11,GXENID 


0012727 


06 001670 000125 TTYTBL 


-002- 08 


VFD 






-001- 0? 


NOTE 


THE VARIABLE PORTION OF THE OUTPUT MESSAGE TO BE PRINTED IS 
CONTAINED IN GENERAL REGISTERS R6,R7,R8,R9, 






-001- 11 


NOTE 


THIS IS A SEGMENT OF A LINKED MESSAGE 


0012730 


06 001671 171400 


12 


GA 


- 


0012731 




13 


RTB 


TTYOUT 


0012731 


06 001672 037020 014672 0014672 


-001- 14 


BSA 


ADVPMTTYOUT 


0012733 


06 001674 171420 


17 


HA 




0012734 


06 001675 006011 


18 


LR 


RO,TTYLINK 






1? 


0WPR06 OW 


0(1676) * 12364 






-001- 20 


NOTE 


************* THE FIRST ADDRESS OVERWRITTEN IS 001676 ********** 




■ ■ 


23 


CPATCH BGNP 


0(106) K 12364 


0012735 


06 001676 037000 111540 0000106 


-001- 24 


BL 


XXX2509 






-001- 25 


NOTE 


CPATCH 'CSECT' 






-001- 26 


NOTE 


***************** PATCH AREA BEGINS AT 000106 **************** 


0111540 




-001- 29 


XXX2509 PATCHAREA 


0111540 


10 000106 131140 045271 CTAPH . 


30 


LAL 


R6,I OBUF+I 0BUFD+2,RA0 (K LOAD ISSUE IDENTIFIER 


0111542 


10 000110 040144 


31 


L 


R6,4TRA0) 


0111543 


10 000111 040165 


32 


L 


R7,5(RA0) 


0111544 




33 


ENDP 


n 12364 


0111544 


10 000112 037000 012737 0001700 


-001- 34 


BL 


XXX2511 






-001- 35 


NOTE 


************ LAST PATCH ADDRESS USED IS 000113 *************** 






-001- 36 


NOTE 


***** NUMBER OF PATCH WORDS USED IS 6 (DECIMAL) ******** 


0012737 




-001- 39 


XXX2511 OWCONTINUE 


0012737 


06 001700 140206 


40 


L 


R8,6(RA0) 


0012740 




41 


EOW 


It 12364 




■ 


-001- 42 


NOTE 


*************** THE LAST ADDRESS OVERWRITTEN IS 001700 ********* 
* 




' 




■ 












■ 










- ' • ■ ',■■'■' - 

■ . ■ ■ 
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D02 



OVERWRITE MULTISCAN FUNCTION 

INITIALIZE, UPDATE, OR OUTPUT THE OVERWRITE FILE 



00127*0 06" 001701 040227 
0012741 



0012741 06 001702 073054 

0012742 06 001703 100270 

0012743 06 001704 031463 

0012744 06 001705 021042 

0012745 06 001706 010000 TTYTBL 

0012746 06 001707 000140 TTYTBL 

0012747 06 001710 171400 

0012750 

0012750 06 001711 037020 014672 0014672 



01 
02 



-001- 05 # 

-001- 06 n 

-002- 07 

-002- 08 

-002- 09 

-002- 10 

-002- 11 

-002- 12 

-001- 13 

-001- 15 
16 
17 

-001- 18 



0:32:20 2/06/81 **** 



CNRUTL 



W77D 



L R?,7(RA0) 

LPRINT FMT=(WRD(CR,LF,SP,SP,SP,SP>,WRD(I,S,S, 1,0), ASC, ASC,ASC,ASC>, LINK 
*YES,PRI0R«=3 

MESSAGE PROTOTYPE 

CRLFSPSPSPSP ISSID aaaaaaaa 
BSAI LXPMRY tf SUBROUTINE LPMRY IS IN PROGRAM TTYAPP 

VFO 1,1 2,0 1>0 3,0 1,0 1,1 1,0 2,3 1,1 3,0 
VFD 4,TTY0_ASC 4,TTY0 ASC 4,TTY0 ASC 4,TTY0 ASC 
VFD 4,TTY0_ 4,TTY0 4,TTY0 4,TTY0 
VFD 5,2 11,qtz«* 
VFD 5, 11,IXSSID 
NOTE THE VARIABLE PORTION OF. THE OUTPUT MESSAGE TO BE PRINTED IS 

CONTAINED IN GENERAL REGISTERS R6,R7,R8,R9, 
NOTE THIS IS A SEGMENT OF A LINKED MESSAGE 
GA 

RTB TTYOUT 
BSA ADVPMTTYOUT .' - 



21 IOBPTR 



12 



0012752 06 001713 103074 

0012753 

0012753 

0012753 06 001714 103641 001577 
0012755 06 001716 037000 014117 0014117 

0012757 06 001720 154076 0013055 

0012760 06 001721 031000 010052 0010052 



0012762 
0012762 

0012763 06 

0012764 06 

0012765 06 
0012766 

0012766 06 
0012770 06 
0012771 
0012772 
0012773 06 
0012774 
0012774 
0012774 



06 



06 
06 



001723 024167 

001724 054011 0012774 

001725 040002 

001726 040023 

001727 037020 014576 0014576 

001731 105006 

001732 055003 0012774 

001733 026167 

001734 003140 



-005- 



25 

-001- 26 

-001- 27 

28 

29 

31 
32 
33 
-003- 34 
-001- 35 
36 



23 

24 RDRCDLP 



-001- 



-001- 



LN 



IOBPTR, 12 



CALLPROC RDOWRCRD 

LI PR0CPM,*-RTBPM0RG+4 

BL RDOWRCRD 

BC OPOWFILECOMPL 

LAL RO,OWBUFFER,RAO 



POINT TO FIRST WORD OF FIRST RECORD— SKIP 

HEADER 



# UP ADDRESS USED BELOW 



* AN OVERWRITE IS IN THE OWBUFFER - CHECK FOR PRINTING 
U TURN ON OP:OWFILE SWITCH FOR PROPER DATE 
IF OWFILSW * THEN RGBEGIN 



37 

38 

39 

40 

41 

42 

43 

44 TOO OLD 

45 

46 IFS2532 



TBN OWFILSW, S(OWFILSW) 

BC IFS2532 

L R0,2(RA0) 

L R1,3(RA0) 

CALL PACKDATE 

BSA PACKDATE 

SR R0,R6 

BNC TOO OLD 

SBN OWFILSW, S (OWFILSW) K 

ZR R6 # R6 

RGEND 



TURN ON PRINT 
* LINE COUNTER 
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0012774 
0012774 
0012775 
0012776 
0012776 
0012777 



06 001735 
06 001736 



06 001737 
06 001740 

0013000 06 001741 
0013001 

0013001 06 001742 



124167 

055057 0013054 

024164 

055003 0013002 

051045 

055053 0013054 



-003- 
-001- 

-003- 
-001- 



-001- 
-001- 



01 
02 
03 
04 
05 
06 
07 
08 
09 
10 
11 
12 



» TEST 



FOR 
IF 



0WPR06 



JSL 



SUPPRESSION 
OWFILSW 
TBN 
BNC 
IF 
TBN 
BNC 
TBS 
IF 
BNC 
OW 
NOTE 



0:32:20 2/06/81 **** 



CNRUTL 



W77D 



OF CENSUS LINE 
1 THEN RGBEGIN 



* SKIP PRINT IF CF 



OWFILSW, S (OWFILSW) 
IFS2537 

TRN OP = THEN B PRINTOWFILE 
TRN OP, S (TRN OP) 
PRINTOWFILE 

N(OWTYPE)(RA0),S(OWTYPE) 
CF ■ 1 THEN RGBEGIN 
IFS2543 

0(1743) » 12439 

************* THE FIRST ADDRESS OVERWRITTEN IS 001743 
********** 



0013002 
0013002 
0013002 
0013003 
0013004 
0013005 
0013006 
0013007 
0013010 
0013011 
0013012 
0013013 
0013014 
0013015 
0013016 
0013017 
0013020 
0013021 
0013022 
0013023 
0013024 
0013025 
0013026 
0013027 



06 001743 
06 001744 
06 001745 
06 001746 
06 001747 
06 001750 
06 001751 
06 001752 
06 001753 
06 001754 
06 001755 
06 001756 
06 001757 
06 001760 
06 001761 
06 001762 
06 001763 
06 001764 
06 001765 
06 001766 
06 001767 



106000 
006000 
006000 
006000 
006000 
006000 
006000 
006000 
006000 
006000 
006000 
006000 
006000 
006000 
006000 
006000 
006000 
006000 
006000 
006000 
071420 



-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 



-001- 



16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 



PRINTOWFILE 



TAKEOUT 20 

LR 0,0 

LR 0,0 

LR 0,0 

LR 0,0 

LR 0,0 

LR 0,0 

LR 0,0 

LR 0,0 

LR 0,0 

LR 0,0 

LR 0,0 

LR 0,0 

LR 0,0 

LR 0,0 

LR 0,0 

LR 0,0 

LR 0,0 

LR 0,0 

LR 0,0 

LR 0,0 
HA 

EOW U 12439 

NOTE *************** THE LAST ADDRESS OVERWRITTEN IS 001767 
********** 



0013027 06 001770 006011 

0013030 06 001771 040141 

0013031 06 001772 040165 

0013032 06 001773 003562 000003 

0013034 06 001775 040202 

0013035 06 001776 040223 



44 
45 
46 
47 
48 
49 



LR R0,TTYLINK 

L R6,N(0WN0)(RA0> 

L R7,N(OWSTAT)(RA0) 

NI R7,M(0WSTAT) 

L R8,2(RA0) » 

L R9,3(RA0) » 



MONTH AND DAY OF INSERTION 
YEAR AND HOUR OF INSERTION 
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OVERWRITE MULTISCAN FUNCTION 

INITIALIZE, UPDATE, OR OUTPUT THE OVERWRITE FILE 



0:32:20 



2/06/81 



CNRUTL 



W77D 



0013036 06 001777 003240 

0013037 06 002000 051045 

0013040 

0013040 06 002001 055003 0013043 

0013041 06 002002 003641 000260 TTYTBL 
0013043 

0013043 



0013043 06 002004 173054 

0013044 06 002005 110270 

0013045 06 002006 104111 

0013046 06 002007 021040 

0013047 06 002010 010000 TTYTBL 

0013050 06 002011 000202 TTYTBL 

0013051 06 002012 171400 

0013052 

0013052 06 002013 037020 014672 0014672 



01 



-001- 
-002- 
-001- 



D3 
04 
05 
06 
07 



IFS2549 



IR R10 It DO NOT PRINT A WORD 

TBS N(OWTYPE)(RAO),S(OWTYPE) 

IF CF ■ 1 THEN SPELL R10,(T,R,N,S,L,N> 

BNC IFS2549 

LI R10,TXRNSLN 

LPRINT FMT*(WRD(CR,LF,SP,SP,SP,SP),WRD(0,W),DEC5,DEC,BCD,BCD,WRD),LI 
NK=YES,PRIOR=3,ZSPRS=N0 



-001- 10 K MESSAGE PROTOTYPE 

-001- 11 It CRLFSPSPSPSP OW nnnnn ddddd nnnn nnnn WRD 

-002- 12 BSAI LXPMRY It SUBROUTINE LPMRY IS IN PROGRAM TTYAPP 

"002- 13 VFD 1,1 2,0 1,1 3,0 1,0 1,1 1,0 2,3 1,1 3,0 

-002- 14 VFD 4,TTY0_BCD 4,TTY0_BCD 4,TTY0 DEC 4,TTY0 DEC5 

-002- 15 VFD 4,TTY0_ 4,TTY0 4,TTY0 4,TTY0 WRD 

-002- 16 VFD 5,2 11,qtzz« 

-002- 17 VFD 5, 11,0XW 

-001- 18 NOTE THE VARIABLE PORTION OF THE OUTPUT MESSAGE TO BE PRINTED IS 

CONTAINED IN GENERAL REGISTERS R6,R7,R8,R9,R10, 

-001- 20 NOTE THIS IS A SEGMENT OF A LINKED MESSAGE 

21 GA 

22 RTB TTYOUT 
-001- 23 BSA ADVPMTTYOUT 



0013054 
0013054 
0013054 
0013054 
0013054 06 002015 153677 



26 RGEND 

-001- 27 IFS2543 

28 RGEND 

-001- 29 IFS2537 
0012753 30 B RDRCDLP 



0013055 

0013055 

0013055 06 002016 137020 127462 CTAPH 

0013057 06 002020 106140 

0013060 06 002021 004541 

0013061 06 002022 003561 001127 TTYTBL 

0013063 06 002024 006201 

0013064 06 002025 004601 

0013065 06 002026 006011 

0013066 



34 OPOWFILECOMPL 



-001- 



-001- 



35 


CALL 


36 


BSA 


37 


LR 


38 


AN 


39 


SPELL 


40 


LI 


41 


LR 


42 


AN 


43 


LR 


44 It 


PRINT FINAL 


45 


LPRINT 



BLKDATA 
BLKDATA 
R6,R0 

R6,1 , . 

R7,(L,E,N>G,T,H) 
R7,LXENGTH 
R8,R1 
R8 1 

RO^TTYLINK t SET [IP LINK DATA FOR LPRINT CALL 
LINK TO DO CR,LF AND TERMINATE OUTPUT MESSAGE. 
FMT=(WRD(CR,LF),WRD(C,U,R,R),DEC,WRD,DEC),PRI0R=3 
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602 




OVERWRITE MULTISCAN FUNCTION 0:32:20 2/06/81 **** 




INITIALIZE, UPDATE, OR OUTPUT THE OVERWRITE FILE CNRUTL W77D 




• -001- 01 # MESSAGE PROTOTYPE 




-001- 02 K CRLF CURR ddddd WRD ddddd 




0013066 06 002027 073054 -002- 03 BSAI LXPMRY H SUBROUTINE LPMRY IS IN PROGRAM TTYAPP 




0013067 06 002030 100260 -002- 04 VFD 1,1 2,0 1,0 3,0 1,0 1,1 1,0 2,3 1,0 3,0 




0013070 06 002031 022004 -002- 05 VFD 4,TTY0 4,TTY0 DEC 4,TTY0 WRD 4,TTY0 DEC 




0013071 06 002032 021042 -002- 06 VFD 4,TTY0~ 4,TTY0~ 4,TTY0 4JTTY0 




0013072 06 002033 010000 TTYTBL -002- 07 VFD 5,2 1l7qt 

0013073 06 002034 000427 137000 TTYTBL -002- 08 VFD 5, 11,CXURR 






-001- 0? NOTE THE VARIABLE PORTION OF THE OUTPUT MESSAGE TO BE PRINTED IS 




CONTAINED IN GENERAL REGISTERS R6,R7,R8, 




-001- 11 NOTE THIS IS THE LAST SEGMENT 0* A LINKED MESSAGE 




0013074 12 OPOWFILEPASS 




0013074 06 002035 137000 014625 0014625 13 BL REQPASS 




0013076 17 OPOWFILEFAIL 

0013076 06 002037 137000 014630 0014630 18 BL REQFAIL 






- . -'" * 




■' "' 




; 




• 




■ . 












• 




■ . . 








/.':.' 




• 




















■ . . ■ ■ ..... 




. ■ 












■ 




' ■ 
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A03 



OVERWRITE MULTISCAN FUNCTION 
STOP THE OVERWRITE FUNCTION 



0:32:20 2/06/81 **** 



CNRUTL 



W77D 



0013100 








01 


STOPOW 






02 * 


THIS 


HESSAGE 


HAS THE FOLLO 


FORM: 


0013100 


03 














04 # 


STO 








0013100 


05 














06 m 


THE EXE 


Or THE OVERWRITE 


PROGRAM IS TERMINATED. IT MUST BE ALLOWED 




07 n 


AGAIN 


BEFORE 


rHE OTHER OVERWRITE MESSAGE CAN BE USED. 


0013100 








08 




BEGIN <> 


0013100 








09 




IF OFLUCTL -= OWPG THEN RETURN TTY NG # OW PROGRAM NOT ACTIVE 


0013100 06 002041 


130400 043 


CTSD 


-002- 10 




LL RO,OFLUCTL 


0013102 06 002043 


003404 000001 




-002-;11 




XI RO,OWPG 


0013104 06 002045 


054002 • 




0013106 


-001- 12 




BC IFS2586 


0013105 06 002046 


056467 ■ 




TTYTBL 


-002- 13 




BTSAN TTY NG 


0013106 








-001- 14 


ITS2586 


0013106 06 002047 


103000 ■ 






15 




ZR RO 


0013107 06 002050 


026007 ■ 




BLMMA 


16 




SBN R0,OFLUTIL 




0013110 

0013110 06 002051 


n7Ttncn . 






17 
-001- 18 




CALL MSFABT 

BSAI MXSFABT tf SUBROUTINE MSFABT IS IN PROGRAM CBLM 


Uf jujU ■ 








0013111 








19 




IF CF THEN RETURN TTY NG 


0013111 06 002052 


155002 • 




0013113 


-002- 20 




BNC IFS2591 




0013112 06 002053 


056467 ■ 




TTYTBL 


-003- 21 




BTSAN TTY NG 




0013113 








-002- 22 


IFS2591 


0013113 

0013113 06 002054 


4CAAAT . 




TTYTBL 


23 

-001- 24 




RETURN TTY PF 
BTSAN TTYJ>F 


IjOhOj " 
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P03 



OVERWRITE MULTISCAN FUNCTION 
HASHSUM FUNCTION DESCRIPTION 



0:32:20 



2/06/81 **** 



01 


# 


02 


» 


03 


§ 


04 


n 


05 


# 


06 


n 


07 


n 


08 


H 


09 


n 


10 


n 


11 


H 


12 


n 


13 


n 


14 


K 



DESCRIPTION: 

A hashsum algorithm h 
accurate mean* of val 
and new data. This s 
output, verify, and u 
as part of the overwr 
resident generic and 
the system bootstrap 
means of accurately a 
of pre-stored hashsum 
permits a significant 
bootstrap reload func 
which varies with the 
The basic algorithm 1 



as been defined to provide a simple and relatively 
idating generic and translation data for both current 
eetion implements several functions to calculate, 
pdate these hashsums under control of a craftsperson 
ite (0W) or other procedure. Hashsums are defined for 
translation data, nonresident generic (on tape), and 
files. Proper use of these functions will provide a 
scertaining the validity of this data. Comparison 
s on tape with those calculated from resident store 
ly faster reload of only mutilated data during a system 
tion. The hashsum algorithm is applied in a manner 

function. These are described in the following sections, 
s explained in detail in the hashsum subroutine text. 



CNRUTL 



W77D 
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1 

*. 
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C03 


1 




OVERWRITE MULTISCAN FUNCTION 0:32:20 2/06/81 **** 




RESIDENT GENERIC AND TRANSLATION DATA HASHSUMS CNRUTL W77D 

01 It DESCRIPTION: 

02 It Hashsums are calculated over resident generic and translation data 1n blocks 

03 It of 32K (32768) words. The hashsums for one block are completely Independent 

04 # of data from other blocks, I.e.. the hashsum for location n Is calculated 

05 * over data starting at the next lower 32K-word store boundary and continuing 

06 It up to, and Including, the word at address n. A separate hashsum can be 

07 It obtained for each MAS word If desired. Unwrlte-protected areas of store 










08 K found within the generic program (temporary store) are skipped and do not 

09 K contribute to the hashsum calculations. The last generic hashsum will 










10 It end on the last word of generic, regardless of boundary alignment. The first 






11 It translation hashsum calculation begins with the first word of translations, 






12 It also regardless of boundary alignment. 






001311* . 13 






1* It ENTRIES: 






15 It 0PHASH 






0013114 17 0PHASH 






18 # TTY INPUT MESSAGES 






19 It OP:HASH:GENERIC lastadr bgnadr! 






20 It 0P:HASH:TRNSLN lastadr bgnadr! 




' 


21 It R7 = GENERIC/TRNSLN 






22 It R8,R9 ■ lastadr 






23 # R10,R11 ■ bgnadr 






0013114 25 BEGIN 




. 


0013114 26 CALL FRSTCHK 






0013114 06 002055 137020 014561 0014561 -001- 27 BSA FRSTCHK 






0013116 28 IF CF = THEN RETURN 






0013116 06 002057 154002 — 0013120 -001- 29 BC IFS2604 






0013117 06 002060 056400 . -002- 30 BTSA 






0013120 -001- 31 IFS2604 






32 * DETERMINE LEGALITY OF MESSAGE AND SET OPTION FLA6S AS RE0UIRED 




■' 


33 SPELL R7,(G,E,N,E,R,I,C),0P=CI 






0013120 06 002061 103565 001445 TTYTBL -001- 34 CI R7,GXENERIC 






0013122 35 IF ' CF * 1 THEN RGBEGIN 






0013122 06 002063 055003 0013125 -001-36 BNC IFS2609 






0013123 06 002064 022164 37 IBN TRN 0P,S(TRN OP) 






0013124 06 002065 053007 0013133 38 B OPHASHCONT " 




' 


0013125 39 RGEND 






0013125 -001- 40 IFS2609 






41 SPELL R7,(T,R,N,S,L,N),0P=CI 






0013125 06 002066 103565 000260 TTYTBL -001- 42 CI R7,TXRNSLN 






0013127 43 IF CF ■ 1 THEN RGBEGIN 






0013127 06 002070 055003 0013132 -001- 44 BNC ' IFS2614 

0013130 06 002071 026164 45 SBN TRN OP, S (TRN OP) 

0013131 06 002072 053002 0013133 46 B OPHASHCONT " 

0013132 47 RGEND 
0013132 -001- 48 IFS2614 

0013132 49 RETURN TTY_NG f NEITHER GENERIC NOR TRNSLN SPECIFIED 




. 
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OVERWRITE MULTISCAN FUNCTION 










0:32:20 2/06/81 **** 


RESIDENT GENERIC AND TRANSLATION DATA 


HASHSUMS 






CNRUTL W77D 


0013132 


06 


002073 


156467 


TTYTBL 


-001- 


01 BTSAN 


TTY 


_NG 


0013133 












03 OPHASHCONT 








0013133 


06 


002074 


106012 






04 LR 




RO, 


R10 


0013134 


06 


002075 


014413 






05 OR 




RO, 


R11 U CF = 1 MEANS BEGINNING IS NOT SPECIFIED 


0013135 


06 


002076 


030165 






06 ICF 




NOBGN, S (NOBGN) 


0013136 












07 








0013136 


06 


002077 


006010 


______ 




08 LR 




RO, 


R8 


0013137 


06 


002100 


014411 






09 OR 




RO, 


R9 


0013140 


06 


002101 


030166 






10 ICF 




NOLAST, S (NOLAST) # CF = 1 MEANS LAST ADDRESS IS NOT SPECIFIED 














11 # LOAD DEFAULT 


FOR 


LAST ADDRESS INTO RA1 


0013141 


06 


002102 


031342 


021637 TDATA 




12 LAL 




RA1 


,STRLIM,RAO 


0013143 


06 


002104 


040361 






13 L 




RA1+1,1(RA0) 


0013144 












14 IF 




TRN 


OP ■ THEN LAL R0,TDATA-1 / RA1 


0013144 


06 


002105 


024164 




-003- 


15 


TBN 




TRN OP, S (TRN OP) 


0013145 


06 


002106 


054003 


0013150 


-001- 


16 


BC 




IFS2"617 


0013146 


06 


002107 


031402 


017777 TDATA 


-001- 


17 


LAL 




R0,TDATA-1,RA1 M 


0013150 










-001- 


18 IFS?617 






ADDRESS 










■ 




19 U RA1 « LAST VALID 


0013150 












20 IF 




NOLAST THEN RGBEGIN 


0013150 


06 


002111 


124166 




-004- 


21 


TBN 




NOLAST, S (NOLAST) 


0013151 


06 


002112 


055003 


0013154 


-002- 


22 


BNC 




IFS2621 


0013152 


06 


002113 


006216 






23 


LR 




R8,RA1 


0013153 


06 


002114 


006237 






24 


LR 




R9,RA1+1 H LAST ADDRESS LOADED 


0013154 












25 


RGEND 


■ 


0013154 










-001- 


26 IFS2621 








0013154 












27 IF 




NOBGN 


0013154 


06 


002115 


124165 




-004- 


28 


TBN 




NOBGN, S (NOBGN) 
IFS2626 


0013155 


06 


002116 


055023 


0013200 


-002- 


29 


BNC 
















30 H RANGE CHECK LAST 


ADDRESS (NOT DONE IF BEGINNING IS SPECIFIED) 


0013156 


06 


002117 


006310 






31 


LR 




RA0,R8 


0013157 


06 


002120 


006331 


______ 




32 


LR 




RA0+1,R9 


0013160 












33 


CALL 


CMPR20 


0013160 


06 


002121 


037020 


110154 CSYSUB 


-001- 


34 


BSA 




CMPR20 


0013162 












35 


IF 




CF = 1 THEN RETURN TTY NG (K LAST ADDRESS TOO BIG 


0013162 


06 


002123 


155002 


0013164 


-001- 


36 


BNC 




IFS2630 


0013163 


06 


002124 


056467 




-002- 


37 


BTSAN 


TTY.NG 


0013164 










-001- 


38 IFS2630 








0013164 












39 


IF 




TRN OP THEN RGBEGIN 


0013164 


06 


002125 


124164 




-004- 


40 


TBN 




TRN~OP,S(TRN OP) 
IFS?633 


0013165 


06 


002126 


055013 


0013200 


-002- 


41 


BNC 




0013166 


06 


002127 


031402 


020000 TDATA 




42 


LAL 




R0,TDATA,RA1 


0013170 


06 


002131 


006256 






43 


LR 




R10,RA1 » LOAD DEFAULT BEGINNING ADDRESS (ASSUME 
MULTIPLE 32K BLOCKS) 


0013171 


06 


002132 


006277 


______ 




45 


LR 




R11,RA1+1 


0013172 












46 


CALL 


CMPR20 


0013172 


06 


002133 


037020 


110154 CSYSUB 


-001- 


47 


BSA 




CMPR20 


0013174 












48 


IF 




RO = 2 THEN RETURN TTY_NG # LAST ADDRESS TOO SMALL 


0013174 


06 


002135 


103405 


000002 


-002- 


49 


CI 




R0,2 
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OVERWRITE MULTISCAN FUNCTION 

RESIDENT GENERIC AND TRANSLATION DATA HASHSUMS 



0013176 06 002137 05S002 

0013177 06 002140 056467 
0013200 

0013200 
0013200 
0013200 
0013200 



0013200 -001- 01 
TTYTBL -002- 02 

-001- 03 IFS2637 

04 
-001- 05 IFS2633 

06 
-001- 07 IFS2626 



_E03_ 



BNC 
BTSAN 

R6END 

R6END 



0:32:20 2/06/81 **** 
CNRUTL W77D 



IFS2637 
TTY_NG 



U END RANGE NO SPECIFIED BEGIN 



0013200 06 

0013201 06 

0013202 06 

0013203 06 
0013204 

0013204 06 
0013206 
0013206 06 

0013210 06 

0013211 06 
0013212 

0013212 06 
0013214 
0013214 
0013215 
0013217 
0013217 



002141 
002142 
002143 
002144 



106310 
006331 
006352 
006373 



002145 037020 110154 CSYSUB 

002147 103405 000002 

002151 055002 0013212 

002152 056467 TTYTBL 

002153 117560 060040 



06 
06 



002155 
002156 



055012 0013226 

003722 100000 



06 002160 037020 110154 CSYSUB 





C? 


U BEGINNING 




10 


H ASSURE BE 




11 




LR 




12 




LR 




13 




LR 




14 




LR 




15 




CALL 


001- 


16 




BSA 




17 




IF 


002- 


18 






001- 


•1? 






002- 


20 






001- 


21 


IFS2643 




22 




CIRM 




23 




IF 


001- 


24 
25 
26 






001- 


27 




I 




28 


OWPROG 


( 


001- 


2? 




I 



BEGINNING AND LAST ADDRESSES ARE LOADED 

IS NOT GREATER THAN LAST ADDRESS 

# MOVE LAST ADDRESS 



CI 
BNC 



RA0,R8 

RA0+1,R9 

RA1,R10 

RA1+1-R11 

CMPR20 

CMPR20 

RO = 2 THEN RETURN TTY NG 

R0,2 

IFS2643 



H MOVE BEGINNING ADDRESS 

# COMPARE LAST AND BEGINNING ADDRESSES 



BTSAN TTY_NG 

NOBGN,1*ES(N0BGN)+O*ES(NOLAST),0,M(NOBGN)+tt(NOLAST) 

CF ■ 1 THEN RGBEGIN " 
BNC IFS2646 
NI R13,-32KMSK 
CALL CMPR20 
BSA CMPR20 

OW 0(2162) # 12651 

NOTE ************* THE FIRST ADDRESS OVERWRITTEN IS 002162 
********** 



n SINGLE HASHSUM REQUEST 

# JAM TO NEXT LOWER 32K BOUNDARY 



0013221 06 002162 103405 000000 

0013223 06 002164 055003 0013226 

0013224 06 002165 006254 

0013225 06 002166 006275 

0013226 



-001- 



33 DINSERT NOTE ' IF RO « THEN RGBEGIN 

34 DDELETE NOTE 2 

35 CI R0,0 

36 BNC TC LABEL 

37 LR R15,RA0 

38 LR R11,RA0+1 

39 EOW K 12651 

40 NOTE *************** THE LAST ADDRESS OVERWRITTEN IS 002166 

********** 



U OVERWRITE WITH HIGHER BEGINNING ADDRESS 



0013226 
0013226 

0013226 



44 RGEND 

-001- 45 IFS2646 

46 DDELETE NOTE 1 

47 TC LABEL 

48 U RAO = GOOD BEGINNING ADDRESS 

49 OWPROG OW 0(2167) 



# 12651 
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.02 



OVERWRITE MULTISCAN FUNCTION 






0:32:20 2/06/81 **** 






RESIDENT GENERIC AND TRANSLATION DATA 


HASHSUMS 




CNRUTL W77D 










-001- 01 


NOTE ************* THE FIRST ADDRESS OVERWRITTEN IS 002167 ********** 






0013226 




04 


TAKEOUT 2 






0013226 06 002167 106000 




-001- 05 


LR 


0,0 






0013227 06 002170 006000 




-001- 06 


LR 


0,0 






0013230 




07 


EOW 


# 12651 






■ 




-001- 08 


NOTE *************** THE LAST ADDRESS OVERWRITTEN IS 002170 ********* 
* 






0013230 06 002171 006310 




12 


LR 


RA0,R8 






0013231 06 002172 006331 


______ 


13 


LR 


RA0+1,R9 






0013232 




14 


RTB 


TTYIN 






0013232 06 002173 003601 


002056 


-001- 15 


LI 


RTBPM,*-RTBPM0RG+4 




0013234 06 002175 037000 


014722 0014722 


-001- 16 


BL 


ADVPMTTYIN 








1? n RAO 


- LAST ADDRESS 










20 n rio, 


R11 


= BEGINNING (CURRENT) ADDRESS 










21 # R6 ■ 


HASHSUM VALUE 




0013236 06 002177 103140 


______ 


22 


ZR 


R6 It ZERO HASHSUM VALUE (INITIALIZE) 


■ 




0013237 




23 NEWR10R11 








0013237 06 002200 106352 


______ 


24 


LR 


RA1,R10 






0013240 06 002201 006373 


_- — — 


25 


LR 


RA1+1,R11 




0013241 




26 


IF 


NOBGN THEN RGBEGIN * ARE CHECKS ON? 






0013241 06 002202 024165 


______ 


-004- 27 




TBN NOBGN, S (NOBGN) 






0013242 06 002203 055017 


0013261 


-002- 28 




BNC IFS2660 






0013243 




29 




CALL RGCHKADR 






0013243 06 002204 073036 


______ 


-001- 30 




BSAI rgchkAdr H SUBROUTINE RGCHKADR IS IN PROGRAM CSTSUB 
IF RO = 2 THEN RGBEGIN 






0013244 




31 








0013244 06 002205 103405 


000002 


-002- 32 




CI R0,2 






0013246 06 002207 055013 


0013261 


-001- 33 




BNC IFS2664 






0013247 06 002210 003763 


007777 


34 




01 R15,4KMSK 






0013251 06 002212 003021 


------ 


11 




LN -1,1 


■ 


0013252 






CALL ADD16 K PUT RA1 ON NEXT 4K BOUNDARY 






0013252 06 002213 037020 


110115 CSYSUB 


-001- 37 




BSA ADD16 






0013254 06 002215 106256 


______ 


38 




LR R10,RA1 






0013255 06 002216 006277 




39 

40 OWPROG 




LR R11,RA1+1 

OW 0(2217) U 12651 










-001- 41 




NOTE ************* THE FIRST ADDRESS OVERWRITTEN IS 002217 












********** 






0013256 06 002217 053027 


0013305 


45 




B CMPRADR 






0013257 




46 




TAKEOUT 2 






0013257 06 002220 006000 


______ 


-001- 47 




LR 0,0 






0013260 06 002221 006000 


______ 


-001- 48 




LR 0,0 




0013261 




49 




EOW U 12651 
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603 


OVERWRITE MULTISCAN FUNCTION 








0:32:20 2/06/81 **** 


RESIDENT GENERIC AND TRANSLATION DATA 


HASHSUMS 






CNRUTL W770 








-001- 01 




NOTE *************** THE LAST ADDRESS OVERWRITTEN IS 002221 














********** 


0013261 






05 




R6END 


0013261 






-001- 06 


IFS2664 




0013261 






07 




R6END 


0013261 






-001- 08 


IFS2660 




0013261 06 


002222 


103763 000077 


09 




01 


R15,HASHLENMAX-1 * TARGET LAST ADDRESS FOR THIS LOOP 


0013263 






10 




CALL 


CMPR20 


0013263 06 


002224 


037020 110154 CSYSUB 


-001- 11 




BSA 


CMPR20 


0013265 






12 




IF 


CF = THEN LR R15,R13 


0013265 06 


002226 


154002 0013267 


-001- 13 




BC 


IFS2675 


0013266 06 


002227 


006375 


-001- 14 




LR 


R15,R13 U 


0013267 






-001- 15 


IFS2675 




0013267 06 


002230 


105373 


16 




SR 


R15,R11 


0013270 06 


002231 


006017 


17 




LR 


R0,R15 


0013271 06 


002232 


004401 


18 




AN 


R0,1 U RO * LENGTH 

R15,R11 U RESTORE BASE ADDRESS OF CALCULATION 


0013272 06 


002233 


006373 : 


19 




LR 


0013273 






20 




ARL 


R10,R0 * ADVANCE R10,R11 TO NEXT BASE ADDRESS 


0013273 06 


002234 


001660 


-001- 21 




AR 


R10+1,R0 


0013274 06 


002235 


055002 0013276 


-001- 22 




BNC 


IFS2676 


0013275 06 


002236 


004641 


-001- 23 




AN 


R10,1 


0013276 06 


002237 


106026 


24 




LR 


Ri,R6 U PREVIOUS HASHSUM VALUE 


0013277 06 


002240 


024164 


25 




TBN 


TRN OP,S(TRN OP) 


0013300 






26 




CALL 


HASHSUMF # COMPUTE HASHSUM 


0013300 06 


002241 


037021 016240 MASACS 


-001- 27 




BSA 


HASHSUMF 


0013302 06 


002243 


155043 0013345 


28 




BNC 


OPHASHFAIL 








29 


OWPROG 


OW 


0(2244) * 12651 








-001- 30 




NOTE 


************* THE FIRST ADDRESS OVERWRITTEN IS 002244 ********** 








33 


OWPROG 


BGNP 


0(3735) * 12651 


0013303 06 


002244 


037000 014774 0014774 


-001- 34 
-001- 35 




BL 
NOTE 


XXX2680 

OWPROG 'CSECT' 








-001- 36 




NOTE 


***************** PATCH AREA BEGINS AT 003735 **************** 


0014774 






-001- 39 XXX2680 PATCHAREA 


0014774 06 003735 


106141 


40 




LR 


R6,R1 


0014775 06 


003736 


006352 


41 




LR 


R14,R10 


0014776 06 


003737 


42 




LR 


R15,R11 


0014777 






43 




ENDP 


« 12651 


0014777 06 


003740 


037000 013305 0013305 


-001- 44 
-001- 45 
-001- 46 




BL 

NOTE 

NOTE 


XXX2682 

************ LAST PATCH ADDRESS USED IS 003741 *************** 

***** NUMBER OF PATCH WORDS USED IS 5 (DECIMAL) ******** 
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OVERWRITE MULTISCAN FUNCTION 








0:32:20 2/06/81 **** 


RESIDENT GENERIC AND TRANSLATION DATA 


HASHSUMS 






CNRUTL W77D 


0013305 










-001- 01 


XXX2682 OWCONTINUE 


0013305 










02 


CMPRADR 


■ 


0013305 










03 




CALL 


CMPR20 


0013305 


06 


002246 


137020 


110154 CSYSUB 


-001- 04 




RSA 


CMPR20 


0013307 










05 
-001- 06 




EOU 
NOTE 


ft 12651 
*************** THE LAST ADDRESS OVERWRITTEN IS 002247 ********* 

* 


0013307 


06 


002250 


130220 




10 




ICF 


R9,0 ff SAVE RESULT OF COMPARE 


0013310 


06 


002251 


016417 


077777 


11 




LRM 


R0,R15,32KMSK 


0013312 










12 




IF 


RO = THEN B PRINTOPHASH 


0013312 


06 


002253 


014000 




-002- 13 




TZ 


RO 


0013313 


06 


002254 


054003 


0013316 


-001- 14 




BC 


PRINTOPHASH 


C013314 


06 


002255 


024220 




15 




TBN 


R9,0 


0013315 


06 


002256 


054016 


0013333 


16 




BC 


OPHASHRTB K TAKE BRANCH IF NOT DONE 


0013316 










17 


PRIN 


■ 


0013316 


06 


002257 


171420 




18 




HA 


. • 


0013317 


06 


002260 


003021 


______ 


19 




LN 


R1,1 


0013320 










20 




CALL 


SUB16 # DECREMENT BY 1 


0013320 


06 


002261 


037020 


110135 CSYSUB 


-001- 21 




BSA 


SUB16 


0013322 


06 


002263 


106206 


__-_ — 


22 




LR 


R8,R6 


0013323 


06 


002264 


006156 




23 




LR 


R6,RA1 


0013324 


06 


002265 


006177 




24 




LR 


R7,RA1+1 


0013325 










25 




PRINT 


FMT=(WRD,WRD,H C,L_X,DEC) 












-001- 27 


* 


MESSAGE PROTOTYPE 












-001- 28 


n 


mm 


WRD WRD xxxxx ddddd 


0013325 


06 


002266 


073053 




-002- 29 




BSAI 


PXMRY # SUBROUTINE PMRY IS IN PR06RAM TTYAPP 


0013326 


06 


002267 


000200 




-002- 30 




VFD 


1,0 2,0 1,0 3,0 1,0 1,1 1,0 2,0 1,0 3,0 


0013327 


06 


002270 


022145 




-002- 31 




VFD 


4,TTY0 4,TTY0 DEC 4,TTY0 L X 4,TTY0_H C 


0013330 


002271 


021042 




-002- 32 




VFD 


4,TTY0~ 4,TTY0 4,TTY0 4,TTY0 












-001- 33 




NOTE 


THE VARIABLE PORTION OF THE OUTPUT MESSAGE TO BE PRINTED IS 
CONTAINED IN GENERAL REGISTERS R4,R5,R6,R7,R8, 


0013331 


06 


002272 


171400 


— — _ . 


35 




GA 


• 


0013332 


06 


002273 


003140 




36 




ZR 


R6 H ZERO HASHSUM ACCUM. 


0013333 










37 OPHASHRTB 




0013333 










38 




RTB 


' 


0013333 


06 


002274 


137020 


014670 0014670 


-001- 39 




BSA 


ADVPM 


0013335 


06 


002276 


124220 




42 




TBN 


R9,0 


0013336 


06 


002277 


054701 


0013237 


43 




BC 


, NEWR10R11 * TAKE BRANCH IF NOT DONE 












45 


§ 


DONE WITH CALCULATION 


0013337 


46 




CIRM 


NOBGN,1*ES(NOBGN)+0*ES(NOLAST),0,M(NOBGN)+M(NOLAST) 


0013341 


06 


002302 


050000 


014636 0014636 


47 




BCL 


NOTTYACK 


0013343 06 002304 


037000 


014625 0014625 


48 




BL 


REQPASS 
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• • 
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B04 



OVERWRITE HULTISCAN FUNCTION 

RESIDENT GENERIC AND TRANSLATION DATA HASHSUNS 



0:32:20 2/06/81 **** 
CNRUTL W77D 



0013345 

0013345 06 002306 137000 014630 0014630 



01 OPHASHFAIL 

02 BL 



REQFAIL 
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CO* 



OVERWRITE MULTISCAN FUNCTION 

NONRESIDENT GENERIC AND BOOTSTRAP HASHSUHS 



0:32:20 2/06/81 **** 
CNRUTL W77D 



0013347 



0013347 



0013347 



0013347 



01 
02 
03 
04 
05 
06 
07 
08 
09 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 



DESCRIPTION: 

This section calculates hashsums from data residing on the tape cartridges, 
I.e., the nonresident generic and the bootstrap. A description of each 
f>- .ctlon follows. 

Hashsums are calculated over nonresident generic 1s groups of 32 consecutively 
numbered segments. The first segment number of such a group 1s always evenly 
divided by 32, except for the first group which must begin with segment 1 
(segment is used to indicate resident generic). The last group 
terminates on the highest defined segment, and therefore may be fewer than 
32 segments long. A single hashsum is associated with one particular 
segment and is computed by applying the basic algorithm over the data 
comprising a given group up to that segment. In the general case, the 
hashsum calculation on the first word of segment n Is a logical continuation 
of the hashing from the last word of segment n-1 . The values computed for 
one group are completely independent from data contained in any other. As an 
example, the hashsum for segment 67 is computed from data in segments 
64, 65, 66, and 67. The output messages identify the hashsums by their 
associated decimal segment number. 



A single hashsum value is also 
bootstrap data. This code 1s 
B00TSTP. The single hashsum i 
segment, i.e., the algorithm 1 
continuous operation. Data is 
store words. 
For redundancy, the complete b 
tape file called B00T2. Logic 
data in the primary copy, and 
The hashsum function over boot 
from the B00TSTP file on track 
on the B00T2 file on track 2. 
according to the file's track 

ENTRIES: 
0PHASHNR 



defined for the code comprising the system 
found in the tape cartridge file called 
s computed like a nonresident generic 
s applied over all loaded code words in one 

always packed on the tape as 16 bit wide 

ootstrap program is duplicated in a second 
ally the data in this file exactly equals the 
hence, should produce identical hashsums. 
strap data will read and calculate the hashsum 
1 and then automatically repeat the operation 
The output messages identify the hashsums 
number. 



38 


0PHASHNR 








39 


n 


TT1 


INPUT 


MESSAGE 




40 


* 


OP: 


HASHNR 


BOOT 






41 


n 


OP: 


HASHNR 


SEG . 


legb 


segf! 


42 


l 


R6 


■ B00T/Se 






43 


« 


R7 


= segb 








44 


f 


RB 


■ segf 
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OVERWRITE MULTISCAN FUNCTION 








0:32:20 2/06/81 **** 


NONRESIDENT GENERIC AND BOOTSTRAP HASHSUMS 






CNRUTL W77D 


0013347 






01 


BEGIN 


(> 


0013347 






02 


CALL 


FRSTCHK 


0013347 06 


002310 137020 014561 0014561 


-001- 


03 


BSA 


FRSTCHK 


0013351 






04 


IF 


CF « THEN RETURN 


0013351 06 


002312 154002 0013353 


-001- 


05 


BC 


IFS2702 


0013352 06 


002313 056400 


-002- 


06 


BTSA 


0013353 




-001- 


07 


IFS2702 










08 


K DETERMINE LEGALITY OF MESSAGE AND SET OPTION FLAGS 








09 


SPELL 


R6,(B,0,0,T),0P=CI 


0013353 06 


002314 103545 001016 TTYTBL 


-001- 


10 


CI 


R6,BX00T 


0013355 06 


002316 054170 0013545 




11 


BC 


OPHASHNRBOOT 








12 


SPELL 


R6,(S,E,G),0P=CI 


0013356 06 


002317 003545 001246 TTYTBL 


-001- 


13 


CI 


R6,SXEG 


0013360 






14 


IF 


CF = THEN RETURN TTY_NG U NEITHER BOOT NOR SEG SPECIFIED 


0013360 06 


002321 054002 0013362 


-001- 


15 


BC 


IFS2710 


0013361 06 


002322 056467 TTYTBL 


-002- 


16 


BTSAN TTY NG 


0013362 




-001- 


17 


IFS2710 










19 


# OP:HASHNR:SEG TYPED 


0013362 06 


002323 106007 




20 


LR 


R0,R7 


0013363 






21 


CALL 


BCDXBIN 


001 3363 06 


002324 073030 


-001- 


22 


BSAI 


BXCDXBIN n SUBROUTINE BCDXBIN IS IN PROGRAM CSYSUB 


0013364 06 


002325 106240 




23 


LR 


R10,R0 


0013365 06 


002326 006041 




24 


LR 


R2,R1 * IF NON-ZERO, BAD BCD DIGIT WAS TYPED 








25 


OWPROG OW 


0(2327) U 13056 






-001- 


26 


NOTE 


************* THE FIRST ADDRESS OVERWRITTEN IS 002327 ********** 


0013366 06 


002327 006067 




29 


LR 


R3,R7 HI SAVE ORIGINAL VALUE 








30 


OWPROG BGNP 


0(3771) # 13056 


0013367 06 


002330 037000 015030 0015030 


-001- 


31 


BL 


XXX2715 






-001- 


32 


NOTE 


OWPROG 'CSECT' 






-001- 


33 


NOTE 


***************** PATCH AREA BEGINS AT 003771 **************** 


0015030 




-001- 


36 


XXX2715 PATCHAREA 


0015030 06 


003771 130165 




37 


ICF 


NOBGN,S(NOBGN) 


0015031 






38 


IF 


CF " 1 THEN RGBEGIN 


0015031 06 


003772 055003 0015034 


-001- 


39 


BNC 


IFS2717 


0015032 06 


003773 014443 




40 


OR 


R2,R3 U FORCE FAILURE UNLESS NO DIGITS TYPED 


0015033 06 


003774 003241 




41 


LN 


R10,1 » DEFAULT TO SEG 1 


0015034 






42 


RGEND 


0015034 




-001- 


43 


IFS2717 




0015034 






44 


ENDP 


» 13056 


0015034 06 


003775 137000 013371 0013371 


-001- 


45 


BL 


XXX2719 






-001- 


46 


NOTE 


************ LAST PATCH ADDRESS USED IS 003776 *************** 






-001- 


47 


NOTE 


***** NUMBER OF PATCH WORDS USED IS 6 (DECIMAL) ******** 
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E04 




OVERWRITE MULTISCAN FUNCTION 












0:32:20 2/06/81 **** 


NONRESIDENT GENERIC AND BOOTSTRAP HASHSUMS 










CNRUTL H77D 


0013371 






-001- 


01 


XXX2719 OHCONTINUE 




0013371 








02 


ION 






# 13056 








-001- 


03 


NOTE 


*************** THE LAST ADDRESS OVERHRITTEN IS 002331 ********* 

* 


0013371 


06 002332 


106010 




07 


LR 




RO, 


Rl 


0013372 








08 


CALL 


BCDXBIN 


0013372 


06 002333 


073030 


-001- 


09 


BSAI 


BXCDXBIN U SUBROUTINE BCDXBIN IS IN PROGRAM CSYSUB 


0013373 


06 002334 


106260 




10 


LR 




R11 


,R0 










11 


OHPROG OH 




0(2335) n 13056 








-001- 


12 


NOTE 


************* THE FIRST ADDRESS OVERHRITTEN IS 002335 ********** 


0013374 


06 002335 


030166 




15 


ICF 




NOLAST,S(NOLAST) 


0013375 








16 


IF 




CF 


■ 1 THEN LR R11,R10 H ASSUME ONE SEG REQUESTED 


0013375 


06 002336 


055002 0013377 


-001- 


17 




BNC 




IFS2726 


0013376 


06 002337 


006272 


-001- 


18 




LR 




R11,R10 U ASSUME ONE SEG REQUESTED 


0013377 






-001- 


19 


IFS2726 








0013377 








20 


EON 






U 13056 








-001- 


21 


NOTE 


*************** THE LAST ADDRESS OVERHRITTEN IS 002337 ********* 

* 


0013377 06 002340 


11*441 




25 


OR 




R2, 


R1 


0013400 








26 


IF 




CF 


= THEN RETURN TTY NG M BAD DIGIT IN SEG NO. 


0013400 


06 002341 


054002 0013402 


-001- 


27 




BC 




IFS2729 


0013401 


06 002342 


056467 TTYTBL 


-002- 


28 




BTSAN 


TTY_NG 


0013402 






-001- 


29 


IFS2729 






■ 


0013402 


06 002343 


117560 060140 




30 


CIRH 


N0BGN,1*f IOLAST),0,M( KOLAS' 


0013404 








31 


IF 




CF 


■ 1 THEN LI R11,NUM SEGS If LAST SEG DEFAULT 


0013404 


06 002345 


055003 0013407 


-001- 


32 




BNC 




IFS2731 


0013405 


06 002346 


003661 000123 SEGOOO 


-001- 


33 




LI 




R11,NUM_SEGS « LAST SEG DEFAULT 


0013407 






-001- 


34 


IFS2731 








0013407 








35 


IF 




R10 


-= 1 THEN RGBEGIN * PERMIT HALK-UP FROM SEG 1 TO ANY NO. 


0013407 


06 002350 


103645 000001 


-002- 


36 




CI 




R10,1 


0013411 


06 002352 


054006 0013417 


-001- 


37 
38 


OWPROG 


BC 
OH 




IFS2732 

0(2353) H 13056 








-001- 


39 




NOTE 


************* THE FIRST ADDRESS OVERHRITTEN IS 002353 


















********** 










43 


DINSERT 


NOTE 


' IF R11 >■ NUM SEGS+1 THEN RETURN TTY.NG 










44 


DDELETE 


NOTE 


5 


0013412 


06 002353 


003401 000123 SEGOOO 




45 




LI 




R0,NUM SEGS 


0013414 


06 002355 


005013 




46 




SR 




R0,R11 


0013415 


06 002356 


054002 0013417 




47 




BC 




IFS2356 


W0013416 


06 002357 


056467 TTYTBL 




48 




BTSAN 


TTY_NG 


0013417 








49 


IFS2356 
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OVERWRITE MULTISCAN FUNCTION 








0:32:20 2/06/81 **** 


NONRESIDENT GENERIC AND BOOTSTRAP HASHSUHS 






CNRUTL W77D 


0013417 • 






01 


EOH 


U 13056 






-001- 


02 


NOTE 












********** 


0013417 






06 


RGEND 


0013417 




-001- 


07 


IFS2732 










0? 


U ASSURE FIRST 


SEGMENT NO. LESS THAN MAX. 








10 


OWPROG OW 


0(2360) # 13056 






-001- 


11 


NOTE 


************* THE FIRST ADDRESS OVERWRITTEN IS 002360 ********** 








14 


DINSERT NOTE 


' IF R10 >- NUM.SEGS+1 THEN RETURN TTY NG 








15 


DDELETE NOTE 


5 


0013417 06 002360 


103401 000123 SEGOOO 




16 


LI 


R0,NUN SEGS 


0013421 06 002362 


005012 




17 


SR 


R0,R10 


0013422 06 002363 


054002 0013424 




18 


BC 


IFS2365 TC 


W0013423 06 002364 056467 TTYTBL 




19 


BTSAN 


TTY_NG - ' " 


0013424 






20 


IFS2365 TC 




0013424 






21 


EOW 


» 13056 






-001- 


22 


NOTE 


*************** the LAST ADDRESS OVERWRITTEN IS 002364 ********* 
* 


0013424 06 002365 


106232 




26 


LR 


R9,R10 


0013425 06 002366 


003622 177740 




27 


NI 


R9,-<32SEGMSK U FIND FIRST SEG TO READ 


0013427 






28 


IF 


R9 » THEN LN R9,1 


'0013427 06 002370 


014231 


-002- 


2? 


TZ 


R9 


0013430 06 002371 


055002 0013432. 


-001- 


30 


BNC 


IFS2743 


0013431 06 002372 


003221 


-001- 


31 


LN 


R9,1 n 


0013432 




-001- 


32 


IFS2743 










34 


# FIRST AND FINAL SEGMENT NOS. ARE LOADED 








35 


U ASSURE BEGINNING IS NOT GREATER THAN FINAL SEG. 


0013432 






36 


IF 


R10 > R11 THEN RETURN TTY NG 


0013432 06 002373 


106013 


-003- 


37 


LR 


R0,R11 


0013433 06 002374 


005012 


-003- 


38 


SR 


R0,R10 


0013434 06 002375 


054002 0013436 


-001- 


39 


BC 


IFS2745 


0013435 06 002376 


056467 TTYTBL 


-002- 


40 


BTSAN TTY NG 


0013436 




-001- 


41 


IFS2745 




0013436 






42 


RTB 


TTYIN 


0013436 06 002377 


103601 002262 


-001- 


43 


LI 


RTBPM,*-RTBPM0RG+4 


0013440 06 002401 


037000 014722 0014722 


-001- 


44 


BL 


ADVPMTTYIN 
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_J04 


OVERWRITE MULTISCAN FUNCTION 




0:32:20 2/06/81 **** 


NONRESIDENT GENERIC AND BOOTSTRAP HASHSUHS 




CNRUTL W77D 




01 K R9 " FIRST SEGMENT TO READ (CURRENT SEGMENT) 




02 H R10 " FIRST 


SEGMENT TO OUTPUT HASHSUM VALUE 




03 n R11 » FINAL 


SEGMENT TO OUTPUT HASHSUM VALUE 


0013442 


04 


1 




05 t READ IN FIRST NON-RESIDENT PROGRAM TAPE BLOCK 


0013442 06 002403 131401 146673 SEGOOO 


06 LAL 


R0,SEGTAB-1,RA1 


0013444 06 002405 006011 


07 LR 


R0,R9 


0013445 06 002406 010417 


08 RLN 


R0,1 


0013446 06 002407 042420 


09 LX 


R1,R0(RA1) H GET LOGICAL TAPE ADDRESS (BLOCK NUMBER) 




10 # SET UP TO OPEN AND READ TAPE 




11 OPEN 


OVWCLNT,(P,A,G,E,M,0,N) 


0013447 06 002410 037020 126205 CTAPH -002- 


12 BSA 


OPENTCB 


0013451 06 002412 014123 -001- 


13 VFD 


5,0VWCLNT 1,0 1,0 2,0 3,((7+1)/2)+1 1,0 3,((7+1)/2)-1 


0013452 06 002413 050101 -001- 


14 VFD 


8,ASC P 8,ASC A 


0013453 06 002414 043705 -001- 


15 VFD 


8,ASC~G 8,ASC~E 


0013454 06 002415 046717 -001- 


16 VFD 


8,ASC M 8,ASC 


0013455 06 002416 047000 -001- 


17 VFD 


8,ASC~N 8,ASC 


0013456 06 002417 155065 0013543 


18 BNC 


OPHASHNRFAIL 


0013457 


19 RTB 


TAPE 


0013457 06 002420 037020 014676 0014676 -001- 


20 BSA 


ADVPMTAPE 


0013461 06 002422 103140 


23 ZR 


• 
R6 # ZERO HASHSUM ACCUM 




24 OWPROG OW 


0(2423) » 13056 


-001- 


25 NOTE 


************* THE FIRST ADDRESS OVERWRITTEN IS 002423 ********** 


0013462 


28 NEXTSEGNR 




0013462 06 002423 116411 000037 


29 LRM 


R0,R9,32SEGMSK 


0013464 


30 EOW 


» 13056 


-001- 


31 NOTE 


*************** THE LAST ADDRESS OVERWRITTEN IS 002424 ********* 
• • 


0013464 


35 IF 


■ 
RO * THEN ZR R6 # HASHSUM ACCUM 


0013464 06 002425 014000 -002- 


36 TZ 


RO 


0013465 06 002426 055002 0013467 -001- 


37 BNC IFS2757 




38 ZR 


R6 # HASHSUM ACCUM 


0013467 -001- 


39 IFS2757 






40 U TAPE IS POSITIONED TO NEXT TAPE BLOCK 




41 OWPROG OW 


0(2430) * 13056 


-001- 


42 NOTE 


************* THE FIRST ADDRESS OVERWRITTEN IS 002430 ********** 


0013467 


45 NEXTBLKNR 


* 


0013467 


46 EOW 


U 13056 


-001- 


47 NOTE 


*************** NO PATCH AT THIS ADDRESS ********** 

• 
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OVERWRITE MULTISCAN FUNCTION 










0:32:20 2/06/81 **** 


NONRESIDENT GENERIC AND BOOTSTRAP HASHSUHS 








CNRUTL W77D 


% 








01 




RD1BLK 


0VWCLNT,DUMUNLOD 


0013467 06 


002430 


173047 


-002- 


02 




BSAI 


RXEQR H SUBROUTINE REQR IS IN PROGRAM CTAPH 


0013470 06 


002431 


014400 011161 0011161 


-001- 


03 




ADDR 


DUMUNL0D,0VWCLNT*E(7)+RD1BLK*E(3) 


0013472 








04 




RTB 


TAPE 


0013472 06 


002433 


137020 014676 0014676 


-001- 


05 




BSA 


ADVPMTAPE 


0013474 06 


002435 


106026 




08 




LR 


R1,R6 


0013475 








0? 




CALL 


CALCHASHNR 


0013475 06 


002436 


037020 014365 0014365 


-001- 


10 




BSA 


CALCHASHNR 


0013477 06 


002440 


155044 0013543 




11 




BNC 


OPHASHNRFAIL 


0013500 06 


002441 


006141 




12 




LR 


R6,R1 










14 


* THE 


BLOCK IS 


FINISHED, CHECK FOR SEGMENT OVERFLOW ONTO NEXT BLOCK 


0013501 06 


002442 


030400 045266 LAYOUT 




15 




LL 


RO,I OBUF 


0013503 06 


002444 


024015 




16 




TBN 


RO,S?EOF) 










17 


OWPROG 


OW 


0(2445) U 13056 








-001- 


18 




NOTE 


************* THE FIRST ADDRESS OVERWRITTEN IS 002445 ********** 


0013504 06 002445 


055763 0013467 




21 




BNC 


NEXTBLKNR 


0013505 








22 




EOW 


# 13056 








-001- 


23 




NOTE 


*************** THE LAST ADDRESS OVERWRITTEN IS 002445 ********* 
* 










28 


n R6 = 


HASHSUM 


FOR THIS SEGMENT (R9 >= CURRENT SEGMENT) 


•0013505 








29 




IF 


R9 * R11 THEN B PRINTSEGHASH 


0013505 06 


002446 


020233 


-002- 


30 




CR 


R9,R11 


0013506 06 


002447 


054013 0013521 


-001- 


31 




BC 


PRINTSEGHASH 


0013507 








32 




IF 


R9 >■ R10 THEN RGBEGIN # PRINTOUT IS ARMED 


0013507 06 


002450 


-003- 


33 




LR 


R0,R9 


0013510 06 


002451 


005012 


-003- 


34 




SR 


R0,R10 


0013511 06 


002452 


055020 0013531 


-001- 


35 




BNC 


IFS2773 


0013512 06 


002453 


017560 060140 




36 




CIRM N08GN,1*ES(NOBGN)+1*ES(NOLAST),0,M(NOBGN)+M(NOLAST) 


0013514 








37 




IF 


CF ■ 1 THEN RGBEGIN 


0013514 06 


002455 


055005 0013521 


-001- 


38 




BNC 


IFS2776 


0013515 06 


002456 


015411 




39 




COM 


R0,R9 


0013516 06 


002457 


003402 000037 




40 




NI 


R0,32SEGMSK 










41 


0HPR06 


OW 


0(2461) U 13056 








-001- 


42 




NOTE 
















********** 
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OVERWRITE MULTISCAN FUNCTION 

NONRESIDENT 6ENERIC AND BOOTSTRAP HASHSUMS 

0013531 

-001- 



0013520 06 002461 055011 
0013521 



0013521 
0013521 



0013521 

0013521 06 002462 171420 

0013522 06 002463 006166 

0013523 06 002464 006151 
0013524 



0013524 06 002465 073053 

0013525 06 002466 000200 

0013526 06 002467 021104 

0013527 06 002470 021042 

0013530 06 002471 171400 

0013531 

0013531 



0013531 

0013531 06 002472 104621 
0013532 

0013532 06 002473 006013 

0013533 06 002474 005011 

0013534 06 002475 054726 



-001- 



01 
02 
03 



07 

08 IFS2776 



BOS 



BNC 
EOW 
NOTE 



R6END 



0:32:20 2/06/81 **** 

CNRUTL W77D 

ADVSEGNR 

(K 13056 
*************** THE LAST ADDRESS OVERWRITTEN IS 002461 

********** 



10 * PRINT SEGMENT HASHSUM 

11 PRINTSEGHASH 

12 HA 

13 LR R7,R6 

14 LR R6,R9 

15 PRINT FMT=<WRD,WRD,D£C,DEC) 



-001- 17 U MESSAGE PROTOTYPE 

-001- 18 n mm 

-002- 1? BSAI 

-002- 20 VFD 

-002- 21 VFD 

-002- 22 VFD 

-001- 23 NOTE 



WRD WRD ddddd ddddd 



-001- 



-003- 

-003- 

0013462 -001- 



-001- 36 



25 
26 
27 IFS2773 

29 ADVSEGNR 

30 AN 

31 IF 
32 
33 
34 
35 OWPROG OW 

NOTE 



GA 
RGEND 



PXMRY K SUBROUTINE PMRY IS IN PROGRAM TTYAPP 

1,0 2,0 1,0 3,0 1,0 1,1 1,0 2,0 1,0 3,0 
4,TTY0 4,TTY0 4,TTY0 DEC 4,TTY0_DEC 
4,TTY0~ 4,TTY0" 4,TTY0_ 4,TTY0_ 

THE VARIABLE PORTION OF THE OUTPUT MESSAGE TO BE PRINTED IS 
CONTAINED IN GENERAL REGISTERS R4,R5,R6,R7, 



R9,1 I* INCREMENT SEGMENT NO. 

R9 <«* R11 THEN B NEXTSEGNR 
LR R0,R11 
SR R0,R9 
BC NEXTSEGNR 

0(2476) * 13056 

************* THE FIRST ADDRESS OVERWRITTEN IS 002476 ********** 



0013535 06 002476 017560 060100 
0013537 



0013537 06 002500 050000 014636 0014636 
0013541 06 002502 037000 014625 0014625 



-001- 



39 
40 
41 



45 

46 



CIRM N0BGN,O*E<S(NOBGN))+1*E(S(NOLAST)),0,M(NOBGN)lM(NOLAST> 

EOW U 13056 

NOTE *************** THE LAST ADORESS OVERWRITTEN IS 002477 ********* 

* 



BCL 
BL 



NOTTYACK 
REQPASS 



COMMON NONRESIDENT UTILITIES 

0:32:20 2/06/81 TRADE SECRET - SEE TRADE SECRET RESTRICTIVE NOTICE ON COVER SHEET 



CNRUTL 



PR-1C954-50 
ISSUE 05 PAGE 



214 
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CM 








OVERWRITE MULTISCAN FUNCTION 




0:32:20 2/06/81 **** 




NONRESIDENT GENERIC AND BOOTSTRAP HASHSUNS 




CNRUTL W77D 




00135*3 01 OPHASHNRFAIL 

0013543 06 002504 137000 014630 0014630 02 BL REQFAIL 

* ■ 

- 








• 




• 




■■"■- 








. 












• 


■ 


COMMON NONRESIDENT UTILITIES 




PR-1C954-50 
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DOS 



OVERWRITE MULTISCAN FUNCTION 








0:32:20 2/06/81 **** 


NONRESIDENT GENERIC AND BOOTSTRAP HASHSUHS 






CNRUTL W77D 




» 








01 


» HASHSUM 


NONRESIDENT CALCULATION OVER BOOTSTRAP FILE DATA 


0013545 










02 
03 


OPHASHNRBOOT 

n 0P:HASHNR:B0OT TYPED 


0013545 


06 


002506 


103220 




04 


ZR 


R9 


0013546 










05 


RTB 


TTYIN 


0013546 


06 


002507 


003601 002372 


-001- 


06 


LI 


RTBPM,*-RTBPM0RG+4 


0013550 


06 


002511 


037000 014722 0014722 


-001- 


07 


BL 


ADVPMTTYIN 












10 


If R9 = SUBFILE COUNTER 


0013552 










11 


NEWBOOTFILE 


0013552 










12 


IF 


R9 = THEN RGBEGIN 


0013552 


06 


002513 


114231 


-002- 


13 




TZ R9 


0013553 


06 


002514 


055012 0013565 


-001- 


14 




BNC IFS2795 


0013554 


06 


002515 


003020 




15 
16 




ZR R1 

OPEN OVWCLNT, (B,0,0,T,S,T,P) M OPEN PRIMARY FILE 


0013555 


06 


002516 


037020 126205 CTAPH 


-002- 


17 




BSA OPENTCB 


0013557 


06 


002520 


014123 


-001- 


18 




VFD 5,0VWCLNT 1,0 1,0 2,0 3,((7+1 )/2)+1 1,0 3,((7+1)/2)-1 


0013560 


06 


002521 


041317 


-001- 


1? 




VFD 8,ASC B 8,ASC ,.. - - ' 


0013561 


06 


002522 


147724 


-001- 


20 




VFD 8,ASC~0 8,ASC T 


0013562 


06 


002523 


051724 


-001- 


21 




VFD 8,ASC S 8,ASC T 


0013563 


06 


002524 


050000 


-001- 


22 




VFD 8,ASC P 8,ASC 


0013564 


06 


002525 


155757 0013543 




23 




BNC OPHASHNRFAIL 


0013565 










24 




RGEND 


0013565 








-001- 


25 


IFS2795 




0013565 










26 


IF 


R9 - 2 THEN RGBEGIN 


0013565 


06 


002526 


103625 000002 


-002- 


27 




CI R9,2 !. 


0013567 


06 


002530 


055011 0013600 


-001- 


28 




BNC IFS2800 


•0013570 


06 


002531 


003020 




29 
30 




ZR R1 

OPEN OVWCLNT, (B,0,0,T,2) » OPEN SECONDARY FILE 


0013571 


06 


002532 


037020 126205 CTAPH 


-002- 


31 




BSA OPENTCB 


0013573 


06 


002534 


014102 


-001- 


32 




VFD 5,0VWCLNT 1,0 1,0 2,0 3,((5+1)/2)+1 1,0 3,((5+1)/2)-1 


0013574 


06 


002535 


041317 


-001- 


33 




VFD 8,ASC B 8,ASC 


0013575 


06 


002536 


147724 


-001- 


34 




VFD 8,ASC 8,ASC_T 


0013576 


06 


002537 


131000 


-001- 


35 




VFD 8,ASC 2 8,ASC 


0013577 


06 


002540 


155744 0013543 


• 


36 




BNC OPHASHNRFAIL 


001 36 JO 










37 




RGEND 


0013600 








-001- 


38 
39 


IFS2800 
OWPROG OW 


0(2541) U 13056 










-001- 


40 
43 


NOTE ************* THE FIRST ADDRESS OVERWRITTEN IS 002541 ********** 
OWPROG BGNP 0(3742) U 13056 


0013600 


06 


002541 


137000 015001 0015001 


-001- 


44 


BL 


XXX2807 










-001- 


45 


NOTE OWPROG 'CSECT* 










-001- 


46 


NOTE ***************** PATCH AREA BEGINS AT 003742 **************** 
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OVERWRITE MULTISCAN FUNCTION 










0:32:20 2/06/81 **** 


NONRESIDENT GENERIC AND BOOTSTRAP HASHSUMS 








CNRUTL W77D 


0015001 
0015001 
0015002 
0015002 


06 
06 


003742 103140 

003743 037020 014676 0014676 


-001- 
-001- 


01 

02 
03 
04 


XXX2807 PATCHAREA 

ZR R6 # ZERO HASHSUM ACCUM. 

RTB TAPE 

BSA ADVPMTAPE 


0015004 
0015004 


06 


003745 137000 013602 0013602 


-001- 


07 
OS 




ENDP 
BL 


# 13056 
XXX2810 








-001- 
-001- 


09 
10 




NOTE 
NOTE 


************ LAST PATCH ADDRESS USED IS 003746 *************** 
***** NUMBER OF PATCH WORDS USED IS 5 (DECIMAL) ******** 


0013602 
0013602 






-001- 
-001- 


13 
14 
15 


XXX2810 OWCONTINUE 

EOW U 13056 

NOTE *************** THE LAST ADDRESS OVERWRITTEN IS 002542 ********* 

* 


0013602 

0013602 06 002543 173047 

0013603 06 002544 014400 011161 0011161 
0013605 

0013605 06 002546 137020 014676 0014676 


-002- 
-001- 

-001- 


19 NEXTBLKBOOT 

20 # TAPE IS POSITIONED TO NEXT TAPE BLOCK 

21 RD1BLK OVWCLNT,DUMUNLOD 

BSAI RXEOR K SUBROUTINE REO.R IS IN PROGRAM CTAPH 

23 ADDR DUMUNL0D,0VWCLNT*E(7)+RD1BLK*E<3> 

24 RTB TAPE 

25 BSA ADVPMTAPE 


0013607 06 
0013610 
0013610 06 

0013612 06 

0013613 06 


002551 037020 014365 0014365 

002553 155731 0013543 

002554 006141 — 


-001- 


28 
29 
30 
31 
32 




LR 

CALL 

BSA 

BNC 

LR 


R1,R6 

CALCHASHNR 

CALCHASHNR 

OPHASHNRFAIL 

R6,R1 


0013614 
0013616 
0013617 
0013620 
0013621 
0013622 


06 
06 
06 
06 
06 
06 


002555 030400 045266 LAYOUT 
002557 024015 

002560 055763 0013602 

002561 004621 

002562 024220 — ■ 

002563 054760 0013602 




34 
35 
36 
37 
38 
39 
40 


« THE 


BLOCK IS 
LL 
TBN 
BNC 
AN 
TBN 
BC 


FINISHED, CHECK FOR SUB-FILE OVERFLOW TO NEXT BLOCK 
RO,I OBUF 

ro,s7eof) 

nextblkboot 

r9,1 » increment subfile counter 

R9,0 

NEXTBLKBOOT # ONLY HALF DONE 


0013623 
0013624 
0013625 
0013626 
0013627 


06 
06 
06 
06 


002564 071420 

002565 006166 

002566 010621 

002567 006151 




42 
43 
44 
45 
46 
47 
48 


n R6 « HASHSUM FOR THIS BOOTSTRAP FILE (R9(1) ■ WHICH FILE) 
U PRINT BOOTSTRAP HASHSUM 

HA 

LR R7,R6 

RRN R9,1 n CONSTRUCT TRACK NO. 

LR R6,R9 

PRINT FMT=(WRD,WRD,DEC,DEC) 
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OVERWRITE HULTISCAN FUNCTION 








0:32:20 2/06/81 **** 


NONRESIDENT GENERIC AND BOOTSTRAP HASHSUMS 






CNRUTL W77D 


0013627 
0013630 
0013631 
0013632 

0013633 


06 002570 073053 

06 002571 000200 

06 002572 021104 


-001- 01 # 

-001- 02 n 

-002- 03 
-002- 04 
-002- 05 
-002- 06 
-001- 07 

09 


MESSAGE PROTOTYPE 

m WRD HRD ddddd ddddd 
BSAI PXMRY » SUBROUTINE PMRY IS IN PROGRAM TTYAPP 
VFD 1,0 2,0 1,0 3,0 1,0 1,1 1,0 2,0 1,0 3,0 
VFD 4,TTY0 4,TTY0 4,TTY0 DEC 4,TTY0 DEC 
VFD 4,TTY0_ 4,TTY0 4,TTY0 4,TTY0_ 
NOTE THE VARIABLE PORTION OF THE OUTPUT MESSAGE TO BE PRINTED IS 

CONTAINED IN GENERAL REGISTERS R4,R5,R6,R7, 
GA 


0013634 
0013635 


06 002575 073047 

06 002576 015300 137020 


11 CLOSE 
-002- 12 BSAI 
-001- 13 VFD 

14 OWPROG OW 
-001- 15 NOTE 


OVWCLNT 

RXEQR * SUBROUTINE REQR IS IN PROGRAM CTAPH 

5,0VWCLNT 4, CLOSE 1,1 1,0 5,0 

0(2577) (K3E790307 

************* THE FIRST ADDRESS OVERWRITTEN IS 002577 ********** 


0013636 
0013636 


06 002577 137020 014670 0014670 


18 

-001- 19 




RTB 
BSA 


ADVPM 


0013640 


. 


22 

-001- 23 




EOW 
NOTE 


/K3E790307 
*************** THE LAST ADDRESS OVERWRITTEN IS 002600 ********* 

* 


0013641 06 002602 055711 0013552 


27 
28 




TBN 
BNC 


R9 2 
NEWBOOTFILE 


0013642 


06 002603 037000 014625 0014625 


30 




BL 


REQPASS 
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OVERWRITE HUUTISCAN FUNCTION 
UPDATE AND VERIFY HASHSUN FUNCTIONS 



0:32:20 



2/06/81 



0013644 



0013644 



0013644 
0013644 



01 U DESCRIPTION: 

02 U This section updates and verifies the hashsums stored 1n the CHECKSUM file 

03 * on the tape cartridge for resident generic and translation data. One hashsum 

04 It value 1s used for each 4K (4096) word block of resident main store (MAS). 

05 ft An/ modification to the contents of the MAS will cause the calculated hashsum 

06 # to disagree with the one stored In the CHECKSUM file. These values are used 

07 # to detect erroneous changes or mutilations to the MAS data. Such a mismatch 

08 It would cause a reload of that 4K block by the bootstrap program should 

09 tf the bootstrap program be Invoked. To avoid triggering the hashsum detection, 

10 It planned changes such as overwrites and recent changes (to translation data) 

11 # must update the affected hashsum words stored on tape. This section will 

12 # update and verify the hashsums which cover either the resident generic or 

13 It translation data. 
14 

15 It For either the update or verify operation, the stored hashsum values are 

16 It read in from the CHECKSUM file on tape and the actual values are computed 

17 It from the current on-line MAS data. Tor the verify, the calculated values 

18 It are compared against the values from tape and mismatches art outputted by 

19 It TTY messages. Although all hashsum mismatches are printed, only the first 

20 It mismatch in a given 32K module will show a valid MAS hashsum since the 

21 It erroneous hashsum value Is used on subsequent 4K blocks. On a perfect match 

22 It only a completion (C0MPL) message will be given. For the update, the tape 

23 It values are blindly overwritten and copied back into the CHECKSUM file of 

24 H both system tapes. 
25 

26 » ENTRIES: 

27 # UPDHASH 

28 # VERHASH 

SO UPDNASH 

31 VERHASH 

32 U TTY INPUT MESSAGES 

33 It UPD:HASH:ti£NERIC 

34 UPD:HASH:TRNSLN 

35 U VER:HASH:GENERIC 

36 * VER:HASH:TRNSLN 

37 H R4 * UPD/VER 

38 Hf R6 = GENERIC/TRNSLN 



0013644 

0013644 

0013644 06 002605 137020 014561 0014561 

0013646 

0013646 06 002607 154002 0013650 

0013647 06 002610 056400 

0013650 



0013650 06 002611 103565 001445 TTYTBL 



BEGIN () 



-001- 



40 

41 CALL TRSTCHK 

42 BSA KRSTCHK 

43 IF CF - THEN RETURN 
-001- 44 BC IFS2836 
-002- 45 BTSA 

-001- 46 IFS2836 

47 K DETERMINE LEGALITY OF MESSAGE AND SET OPTION FLAGS 

48 SPELL R7,(G,E,N,E,R,I,O,0P«CI 
-001- 49 CI R7,GXENERIC 



CNRUTL 



W77D 
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A06 


OVERWRITE MULTISCAN FUNCTION 




0:32:20 2/06/81 **** 


UPDATE / 


\N0 VERIFY HASHSUM FUNCTIONS 




CNRUTL W77D 


0013652 








01 IF 


CF « 1 THEN RGBEGIN 


0013652 


06 


002613 


055003 0017655 


-001- 02 BNC 


IFS2841 


0013653 


06 


002614 


022164 


03 ZBN 


TRN OP,S(TRN OP) 


0013654 


06 


002615 


053007 0013663 


04 B 


UPVRHASHCONT - 


0013655 








05 RGEND 


0013655 








-001- 06 IFS2841 

07 SPELL 


R7,(T,R,N,S,L,N),0P=CI 


0013655 


06 


002616 


103565 000260 TTYTBL 


-001- 08 CI 


R7,TXRNSLN 


0013657 








09 IF 


CF ■ 1 THEN RGBEGIN 


0013657 


06 


002620 


055003 0013662 


-001- 10 BNC 


IFS2846 


0013660 


06 


002621 


026164 


11 SBN 


TRN OP,S(TRN OP) 


0013661 


06 


002622 


053002 0013663 


12 B 


UPVRHASHCONT 


0013662 








13 R6END 


0013662 








-001- 14 IFS2846 




0013662 








15 RETURN 


TTY_NG U NEITHER GENERIC NOR TRNSLN SPECIFIED 


0013662 


06 


002623 


156467 TTYTBL 


-001- 16 BTSAN 


TTY_NG 


0013663 








18 UPVRHASHCONT 


■ " ' ■ ' 


0013663 








19 RTB 


TTYIN 


0013663 


06 


002624 


103601 002507 


-001- 20 LI 


RTBPM,*-RTBPM0RG+4 


0013665 


06 


002626 


037000 014722 0014722 


-001- 21 BL 

24 K R4 * UPD/VER 

25 U R6 = HASHSUM 


AOVPMTTYIN 
VALUE 










26 # R9 = LOOP INDEX 










27 n R10,R11 « BEGINNING (CURRENT) ADDRESS 










28 * RAO ■ ADDRESS WITHIN I OBUF 


0013667 


06 


002630 


103020 


29 ZR 

30 OPEN 


R1 

OVWCLNT, (C,H,E,C,K,S,U,M) 


0013670 


06 


002631 


037020 126205 CTAPH 


-002- 31 BSA 


OPENTCB 


0013672 


06 


002633 


014123 


-001- 32 VFD 


5,0VWCLNT 1,0 1,0 2,0 3,<(8+1)/2)+1 1,0 3,((8+1)/2)-1 


0013673 


06 


002634 


141510 


-001- 33 VFD 


8,ASC C 8,ASC H 


0013674 


06 


002635 


142703 


-001- 34 VFD 


8,ASC E 8,ASC C 


0013675 


06 


002636 


045523 


-001- 35 VFD 


8,ASC K 8,ASC S 


0013676 


06 


002637 


052515 


-001- 36 VFD 


8,asc u 8,asc m 
upvrhashfail' 


0013677 


06 


002640 


155146 0014045 


37 BNC 


0013700 








38 RTB 


TAPE 


0013700 


06 


002641 


037020 014676 0014676 


-001- 39 BSA 

42 RD1BLK 


ADVPMTAPE • 
OVWCLNT, DUMUNLOD 


0013702 


06 


002643 


173047 


-002- 43 BSAI 


RXEQR M SUBROUTINE REQR IS IN PROGRAM CTAPH 


0013703 


06 


014400 011161 0011161 


-001- 44 ADDR 


DUMUNL0D,0VWCLNT*E(7)+RD1BLK*E<3) 


0013705 








45 RTB 


TAPE 


0013705 


06 


002646 


137020 014676 0014676 


-001- 46 BSA 


ADVPMTAPE 

• 
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B06 




OVERWRITE MULTISCAN FUNCTION 












0:32:20 2/06/81 


**** 


UPDATE 


WD VERIFY HASHSUM FUNCTIONS 












CNRUTL 


W77D 












01 


H ASSUME GENERIC REQUESTED 




0013707 06 


002650 


131400 


000000 




02 
03 


OWPROC 


LAL 
i OW 




R0,0,RA1 U RA1 ■ FIRST ADDRESS FOR HASHSUM 
0(2652) M 12364 




• 








-001- 


04 




NOTE 


************* THE FIRST ADDRESS OVERWRITTEN IS 002652 


********** 


0013711 06 


002652 


031220 


045275 CIPL 




07 




LAL 




R9,I OBUF+I 0BUFD+2+N(PR0GBLKS),RA0 




0013713 










08 




EOW 




U 12364 












-001- 


09 




NOTE 


*************** THE LAST ADDRESS OVERWRITTEN IS 002653 

* 


********* 


0013713 










13 




IF 




TRN OP THEN RGBEGIN H TRNSLN REQUESTED 




0013713 06 


002654 


024164 




-004- 


14 






TBN 


TRN OP,S(TRN OP) 




0013714 06 


002655 


055006 


0013722 


-002- 


15 






BNC 


IFS?861 




0013715 06 


002656 


031402 


020000 TDATA 




16 






LAL 


R0,TDATA,RA1 # RA1 « FIRST ADDRESS FOR HASHSUM 
R0,R9(RA0) 




0013717 06 


002660 


043011 


______ 




17 






LAX 




0013720 06 


002661 


043011 


______ 




18 






LAX 


R0,R9(RA0) 




0013721 06 


002662 


041222 


______ 




19 






LA 


R9,2(RA0) 


■„• '-" " 


0013722 










20 






RGEND 


■*'*' 


0013722 








-001- 


21 


IFS2861 




. 














23 


/» R9 * NUMBER 


OF HASHSUM ENTRIES 














24 


# RAO 


» ADDRESS OF FIRST DOUBLE HASHSUM ENTRY MINUS ONE 




0013722 06 


002663 


104237 






25 




SN 




R9,1 tt ADJUST FOR BX LOOP 




0013723 06 


002664 


006256 






26 




LR 




R10,RA1 




0013724 06 


002665 


006277 






V. 




LR 




R11,RA1+1 




0013725 06 


002666 


003140 








ZR 




R6 * ZERO HASHSUM VALUE (INITIALIZE) 




'0013726 










30 


NEXTENTRYLP 






0013726 06 


002667 


141041 






31 




LA 




R2,1 (RAO) # R2 = HASHSUM LENGTH AND FLAGS 




0013727 06 


002670 


041061 






32 




LA 




R3,1(RA0) * R3 = HASHSUM VALUE CURRENTLY IN 
FILE 


CHECKSUM 


0013730 










34 


MORERES 








0013730 06 


002671 


116762 


017777 CIPL 




35 




LRM 




R15,R2;M(HASHLEN) 

R15 » THEN B ENTRYDONE 




0013732 










36 




IF 






0013732 06 


002673 


014377 




-002- 


37 






TZ 


R15 




0013733 06 


002674 


054031 


0013764 


-001- 


38 






BC 


ENTRYDONE 




0013734 










39 




IF 




R15 >* HASHLENMAX+1 THEN LI R15,HASHLENMAX 




0013734 06 


002675 


006017 




-003- 


40 






LR 


R0,R15 




0013735 06 


002676 


003400 


177677 


-003- 


41 






SI 


RO, HASHLENMAX+1 




0013737 06 


002700 055003 


0013742 


-001- 


42 






BNC 


IFS2867 




0013740 06 


002701 


003761 


000100 


-001- 


43 






LI 


R15,HASHLENMAX U 




0013742 








-001- 


44 


IFS2867 








0013742 06 


002703 


105057 






45 




SR 




R2,R15 U REDUCE HASHSUM LENGTH 




0013743 06 


002704 


006017 






46 




LR 




R0,R15 It LENGTH OF THIS LOOP 




0013744 06 


002705 


006352 






47 




LR 




RA1,R10 U BASE ADDRESS 




0013745 06 


002706 


006373 






48 




LR 




RA1+1,R11 

R10/R0 U ADVANCE BASE ADDRESS 




0013746 










49 




ARL 
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C06 


OVERWRITE MULTISCAN FUNCTION 








0:32:20 2/06/81 **** 


UPDATE i 


WO VERIFY HASHSUM FUNCTIONS 








CNRUTL W77D 


0013746 


06 


002707 


001660 


-001- 


01 


AR 


R10+1,R0 


0013747 


06 


002710 


055002 0013751 


-001- 


02 


BNC 


IFS2870 


0013750 


06 


002711 


004641 


-001- 


03 


AN 


R10,1 


0013751 


06 


002712 


124057 CIPL 




04 


TBN 


R2,S(TSFLG> 


0013752 










05 


IF 


CF = THEN RGBEGIN 


0013752 


06 


002713 


054011 --- 0013763 


-001- 


06 




BC IFS2871 


0013753 


06 


002714 


006026 




07 




LR R1,R6 


0013754 


06 


002715 


024164 




08 




TBN TRN OP,S<TRN OP) 


0013755 










0? 




CALL HASHSUMN H COMPUTE HASHSUM 


0013755 


06 


002716 


037021 016234 MASACS 


-001- 


10 




BSA HASHSUMN 


0013757 


06 


002720 


155066 0014045 




11 




BNC UPVRHASHFAIL 


0013760 


06 


002721 


006141 




12 




LR R6,R1 


0013761 










13 




RTB 


0013761 


06 


002722 


037020 014670 0014670 


-001- 


14 




BSA ADVPM 


0013763 










17 




RGEND 


0013763 








-001- 


18 


IFS2871 




0013763 


06 


002724 


153745 0013730 




19 


B 


MORERES 


0013764 










21 


ENTRYDONE 














22 


» R3 * PRESTORED HASHSUM ENTRY 












23 


K R6 = CALCULATED HASHSUM ENTRY 


0013764 


06 


002725 


124057 CIPL 




24 


TBN 


R2,S(TSFLG) 


0013765 










25 


IF 


CF = 1 THEN RGBEGIN 


0013765 


06 


002726 


055003 0013770 


-001- 


26 




BNC IFS2875 


0013766 










27 




RTB U REAL TIME BREAK IF LAST ENTRY WAS TEMPORARY 

STORE 


0013766 06 002727 037020 014670 0014670 


-001- 


29 




BSA ADVPM 


0013770 










32 




RGEND 


0013770 






■• 


-001- 


33 
34 


IFS2875 
OWPROG OW 


0(2731) U 12364 










-001- 


35 


NOTE ************* THE FIRST ADDRESS OVERWRITTEN IS 002731 ********** 


0013770 


06 


002731 


144140 




38 


ST 


R6,0(RA0) # UPDATE HASHSUM VALUE IN THIS ENTRY 


0013771 










3? 


EOW 


* 12364 










-001- 


40 
45 


NOTE *************** THE LAST ADDRESS OVERWRITTEN IS 002731 ********* 

* 

SPELL R4,(V,E,R),0P«CI 


0013771 


06 


002732 


003505 000050 TTYTBL 


-001- 


46 


CI 


R4,VXER 


0013773 










47 


IF 


CF " 1 THEN RGBEGIN 


0013773 


06 


002734 


055022 0014015 


-001- 


46 




BNC IFS2885 


0013774 






■ 




49 


• 


IF R3 *■ R6 THEN RGBEGIN 
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D06 




OVERWRITE MULTISCAN FUNCTION 














0:32:20 2/06/81 **** 


UPDATE 


\N0 VERIFY HASHSUM FUNCTIONS 












CNRUTL W77D 


001377* 


06 


002735 


020066 




-002- 01 






CR 




R3,R6 


001377S 


06 


002736 


054020 


0014015 


-001- 02 






BC 




IFS2886 












03 


§ 


PRINT ERRO 


HESSAI 


0013776 


06 


002737 






04 






HA 






0013777 


06 


002740 


006226 




05 






LR 




R9,R6 * HASHSUM FROM MAS 


0014000 


06 


002741 


003021 




06 






LN 




R1,1 


0014001 










07 






SRL 




R10,R1 ft DECREMENT LAST ADDRESS 


0014001 


06 


002742 


005261 




-001- 08 






SR 




R10+1,R1 


0014002 


06 


002743 


054002 


0014004 


-001- 09 






BC 




IFS2888 


0014003 


06 


002744 


004257 




-001- 10 






SN 




R10,1 


0014004 


06 


002745 


106152 




11 






LR 




R6,R10 


0014005 


06 


002746 


006173 




12 






LR 




R7,R11 


0014006 


06 


002747 


006203 




13 






LR 




R8,R3 H HASHSUM FROM TAPE 


0014007 










14 






PRINT 


FMT=(WRD,WRD,H_C,L X,DEC5,DEC5) 












-001- 16 


n 


MESSAGE 


PROTOTYPE 












-001- 17 


» 


mm 




WRD WRD xxxxx nnnnn nnnnn 


0014007 


06 


002750 




-002- 18 






BSAI 


PXMRY # SUBROUTINE PMRY IS IN PROGRAM TTYAPP 


0014010 


06 


002751 


000200 




-002- 19 






VFD 




1,0 2,0 1,0 3,0 1,0 1,1 1,0 2,0 1,0 3,0 


0014011 


06 


002752 


114545 ~ 




-002- 20 






VFD 




4,TTY0 DEC5 4,TTY0 DEC5 4,TTY0 L X 4,TTY0 H C 


0014012 


06 


002753 


021042 




-002- 21 






VFD 




4,TTY0 4,TTY0 4,TTY0 4,TTY0~ ~ 




. 








-001- 22 






NOTE 


THE VARIABLE PORTION OF THE OUTPUT MESSAGE TO BE PRINTED IS 






















CONTAINED IN GENERAL REGISTERS R4,R5,R6,R7,R8,R9, 


0014013 


06 


002754 


171400 




24 






GA 






0014014 


06 


002755 


006143 




25 






LR 




R6,R3 # USE HASHSUM FROM TAPE FOR SUBSEQUENT CALC. 


0014015 










26 






RGEND 




0014015 










-001- 27 


IFS2 








0014015 










28 






RGEND 




0014015 










-001- 29 


IFS2885 








0014015 


06 


002756 


116413 077777 




31 




LRM 




RO 


,R11,32KMSK 


0014017 










32 




IF 




RO 


- THEN ZR R6 » ZERO ACCOM. 


0014017 


06 


002760 


014000 




-002- 33 






TZ 




RO 


C014020 


06 


002761 


055002 


0014022 


-001- 34 






BNC 




IFS2895 


0014021 


06 


002762 


003140 




-001- 35 






ZR 




R6 it ZERO ACCUM. 


0014022 










-001- 36 


IFS2 








0014022 


06 


002763 


136220 013726 


0013726 


37 




BX 




R9, 


NEXTENTRYLP 












39 




SPELL 


R4, 


<U,P,D),OP«=CI 


0014024 


06 


002765 


003505 000047 


TTYTBL 


-001- 40 




CI 




R4, 


UXPD 


0014026 










41 




IF 




CF 


= THEN B UPVRHASHPASS 


0014026 


06 


002767 


055015 


0014043 


-001- 42 






BNC 




UPVRHASHPASS 












44 


* 


UPDATE FUNCTION 


HAS REQUESTED 












45 




BACKSP 


OVWCLNT 


0014027 


06 


002770 




-002- 46 




BSAI 


RXEQR ft SUBROUTINE REQR IS IN PROGRAM CTAPH 


0014030 


06 


002771 


016100 137020 




-001- 47 




VFD 




5, OVWCLNT 4,BACKSP 1,1 1,0 5,0 


0014031 










48 




RTB 




TAPE 


0014031 


06 


002772 


137020 014676 


0014676 


-001- 49 




BSA 




ADVPMTAPE 
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E06 


OVERWRITE MULTISCAN FUNCTION 




0:32:20 2/06/81 **** 


UPDATE AND VERIFY HASHSUM FUNCTIONS 




CNRUTL W77D 


» 








03 


WRTAB OVWCLNT 


0014033 06 002774 173047 


-002- 04 


BSAI RXEQR * SUBROUTINE RE9R IS IN PROGRAM CTAPH 


0014034 06 OOZ775 014740 137020 


-001- 05 


VFD 5,0VWCLNT 4,WRTAB 1,1 1,1 5,0 


0014035 


06 


RTB TAPE 


0014035 06 002776 137020 014676 0014676 


-001- 07 


BSA ADVPMTAPE 




10 


COPY OVWCLNT 


0014037 06 003000 173047 


-002- 11 


BSAI RXEQR ft SUBROUTINE REQR IS IN PROGRAM CTAPH 


0014040 06 003001 015500 137020 


-001- 12 


VFD 5, OVWCLNT 4, COPY 1,1 1,0 5,0 


0014041 


13 


RTB TAPE 


0014041 06 003002 137020 014676 0014676 


-001- 14 


BSA ADVPMTAPE 


0014043 


17 UPVRHASHPASS 


0014043 06 003004 137000 014625 0014625 


18 


BL REQPASS 


0014045 


19 


... ■" ' " 


0014045 


20 UPVRHASHFAIL 


0014045 06 003006 137000 014630 0014630 


21 


BL REQFAIL 


' 




■ 












• 


■ 




■" ' 












■< ' 


. 




•-'-'-. 


■ 




" 






■ '. ■ ■ 


■ 




• 


. 






■ 




, ■ 






' 






. 
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EM 






OVERWRITE MULTISCAN FUNCTION 
SEARCH OVERWRITE FILE--OW PROCEDURE 



00140*7 
00140*7 

0014047 



0:32:20 2/06/81 **** 



CNRUTL 



W770 



01 
02 
03 
04 
05 
06 
07 
08 
09 
10 
11 
12 
13 
14 
15 
16 
17 
18 



§ DESCRIPTION: 

# SEARCH THE OWFILE FOR A PARTICULAR OVERWRITE. 

U ENTRY POINT: 
It SEARCH 

# INPUTS 

n RO ■ NUMBER OF THE OVERWRITE TO BE FOUND 

» THE OWFILE IS OPEN AND THE TAPE IS POSITIONED AT THE 

U BEGINNING OF THE FILE. 

# OUTPUTS 

» RO ■ RETURN CODE 

# 0— OVERWRITE NOT FOUND 

# 1 —OVERWRITE FOUND 

# I_OBUFD CONTAINS THE TAPE BLOCK IN WHICH THE 
tt OW RECORD BEGINS AND IOBPTR EQUALS THE 

# OFFSET INTO I_OBUFD OF THE BEGINNING OF THAT RECORD. 



0014047 22 SEARCH 

0014047 06 003010 106260 — 23 LR 

24 OWPROG OW 
-001- 25 NOTE 

0014050 06 003011 003074 28 LN 

0014051 29 EOW 

. -001- 30 NOTE 

0014051 34 SRCHNXTBLK1 

35 RD1BLK 

0014051 06 003012 173047 -002- 36 BSAI 

0014052 06 003013 014400 011161 0011161 -001- 37 ADDR 
0014054 38 RTB 
0014054 06 003015 137020 014676 0014676 -001- 39 BSA 



PROCSCR,RO tl SAVE OW NUMBER 

0(3011) * 12450 

************* THE FIRST ADDRESS OVERWRITTEN IS 003011 ********** 

IOBPTR, 12 

# 12450 
*************** THE LAST ADDRESS OVERWRITTEN IS 003011 ********* 

* 



OVWCLNT,DUMUNLOD 

RXEQR U SUBROUTINE RE«R IS IN PROGRAM CTAPH 

DUMUNL0D,0VWCLNT*E(7)+RD1BLK*E<3) 

TAPE 

ADVPMTAPE 



0014056 06 003017 153032 0014110 

0014057 

0014057 06 003020 131400 045267 CTAPH 

0014061 06 003022 043403 

0014062 

0014062 06 003023 003405 177777 

0014064 06 003025 055005 0014071 

0014065 06 003026 003000 



42 B 

43 SRCHSAMBLK 

44 LAL 

45 LAX 

46 IF 
-002- 47 

■001- 48 
-002- 49 



CI 

BNC 

LN 



CKIOBPTR 

•R0,I_0BUF+I_0BUFD,RA1 
RO IOBPTRCRAI) 
R0'«= EOOWF THEN RTNPROC # OW WAS NOT FOUND 

R0,E00WF 

IFS2918 

R0,0 
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606 


OVERWRITE MULTISCAN FUNCTION 




0:32:20 2/06/81 **** 


SEARCH 


DVERMRITE FILE--OW PROCEDURE 




CNRUTL W77D 


0014066 06 


003027 006212 


-002- 01 


LR RTBPM,PROCPM 


0014067 06 


003030 037000 011154 0011154 


-002- 02 


BL BRTBPM 


0014071 




-001- 03 


IFS2918 






04 


OWPROG OH 0(3032) § 12450 






-001- 05 


NOTE ************* THE FIRST ADDRESS OVERWRITTEN IS 003032 ********** 


0014071 




08 


. ' 






0? 


OWPROG BGNP 0(3700) It 12450 


0014071 06 


003032 137000 014737 0014737 


-001- 10 


BL XXX2923 






-001- 11 


NOTE OWPROG 'CSECT' 






-001- 12 


NOTE ***************** PATCH AREA BEGINS AT 003700 **************** 


0014737 




-001- 15 


XXX2923 PATCHAREA 


0014737 




16 


IF RO ■ THEN RGBEGIN REMAINDER. OF CURRENT BLOCK UNUSED 




-002- 17 


U RO 


0014740 06 


003701 055004 0014744 


-001- 18 


6NC IFS2925 


0014741 06 


003702 003060 


19 


ZR IOBPTR 


0014742 06 


003703 037000 014051 0014051 


20 


BL SRCHNXTBLK1 


0014744 




21 


RGEND 
IFS2925 
IFST1 


0014744 




-001- 22 


0014744 




23 


0014744 




24 


ENDP n 12450 


0014744 06 


003705 137000 014073 0014073 


-001- 25 


BL XXX2928 






-001- 26 


NOTE ************ LAST PATCH ADDRESS USED IS 003706 *************** 






-001- 27 


NOTE ***** NUMBER OF PATCH WORDS USED IS 7 (DECIMAL) ******** 


0014073 




-001- 30 


XXX2928 OWCONTINUE 


0014073 06 


003034 140421 


31 


L R1,N(0WN0)(RA1) 


0014074 




32 


EOW # 12450 






-001- 33 


NOTE *************** THE LAST ADDRESS OVERWRITTEN IS 003034 ********* 

* 


0014074 06 


003035 017033 177777 


37 


CRM R1,PR0CSCR,M(0WN0) 


0014076 




38 


IF CF THEN RGBEGIN # OW NUMBER WAS FOUND 


0014076 06 


003037 055011 0014107 


-002- 39 


BNC IFS2933 


0014077 06 


003040 040425 


40 


L R1,N(0WSTAT)(RA1> 


0014100 06 


003041 017420 001403 


\\ 


CIRM R1,0WDEAD,S(0WSTAT),M(0WSTAT)/ES(0WSTAT) 


0014102 




IF ■* CF THEN RTNPROC 1 » ACCEPT IT ONLY IF IT IS NOT DEAD 


0014102 06 


003043 054005 0014107 


-002- 43 


BC IFS2935 


0014103 06 


003044 003001 


-003- 44 


LN R0,1 


0014104 06 


003045 006212 


-003- 45 


LR RTBPM,PROCPM 


0014105 06 


003046 037000 011154 0011154 


-003- 46 


BL BRTBPM 


0014107 




-002- 47 


IFS2935 


0014107 




46 


RGEND 


0014107 




-001- 49 


IFS2933 
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OVERWRITE HULTISCAN FUNCTION 
SEARCH OVERWRITE FILE— OW PROCEDURE 



ML 



0:32:20 2/06/81 **** 



CNRUTL 



W77D 



0014107 
0014110 
0014110 
0014110 
0014111 
0014113 

0014114 
0014116 



06 003050 101460 

06 003051 106003 

06 003052 003400 176304 MASACS 
06 003054 055744 0014057 

06 003055 003460 176304 MASACS 
06 003057 053733 0014051 





01 IOBPTR * 




IOBPTR + RO 


-005- 


02 

03 CKIOBPTR 


AR 


IOBPTR, RO 




04 IF 




IOBPTR < A.OBUFLEN 


-003- 


05 


LR 


RO,IOBPTR 


-003- 


06 


SI 


RO,OBUFLEN 


-001- 


07 


BNC 


SRCHSAMBLK 




08 IOBPTR ■ 




IOBPTR - A.OBUFLEN 


-005- 


09 


SI 


IOBPTR, OBUFLEN 




10 B 




SRCHNXTBLK1 



U INCREMENT POINTER 



THEN B SRCHSAMBLK 



COMMON NONRESIDENT UTILITIES 

0:32:20 2/06/81 TRADE SECRET - SEE TRADE SECRET RESTRICTIVE NOTICE ON COVER SHEET CNRUTL 



PR-1C954-50 
ISSUE 05 PAGE 



227 



















_|D7 




OVERWRITE HULTISCAN FUNCTION 












0:32:20 2/06/81 


**** 


READ ONE RECORD FROM 


(•HE OVERWRITE FILE— OK 


PROCEDURE 




CNRUTL 


W77D 












01 


§ 


DESCRIPTION: 
















02 


If 


READ ONE 


RECORD (ONE OVERWRITE) FROM THE OVERWRITE FILE 










' 




03 


I 


ON TAPE 


TO THE OVERWRITE BUFFER IN STORE. 




0014117 










04 






















05 


1 


ENTRV POINT: 
















06 


1 


RDOWRCRD 








0014117 










07 
08 


1 


INPUTS 






. 








' 




0? 
10 


1 
M 


IOBPTR ■ 
I OBUFD 


FIRST WORD OF THE RECORD IN I OBUFD 
■ FIRST TAPE BLOCK OF RECORD 














11 


1 


TAPE IS 


POSITIONED AT THE SECOND BLOCK OF RECORD 




0014117 










12 
13 


1 


OUTPUTS 


















14 


1 


RO = RETURN 


CODE 














15 


* 


0--END 


OF 


FILE, NO RECORDS LEFT TO READ 














16 


n 


1--N0T 


END 


OF FILE, RECORD HAS BEEN READ 




" 










17 


§ 


IOBPTR « 


FIRST WORD OF FOLLOWING RECORD 














18 


H 


I OBUFD 


* FIRST TAPE BLOCK OF FOLLOWING RECORD 




* 






•■ 




19 


n 


TAPE POSITIONED AT THE BLOCK FOLLOWING THE ONE IN I OBUFD 




0014117 






. 




23 


RDOWRCRD 




• 


* 


0014117 06 


0C3060 


103040 






24 




ZR 




OWBPTR 




0014120 06 003061 


031000 045267 CTAPH 




25 




LAL 




RO,I OBUF+I OBUFD, RAO 




0014122 06 


003063 


042263 


------ 




26 




LX 




PROCSCR, IOBPTR (RAO) 




0014123 










27 




IF 




PROCSCR ■ EOOWF THEN RTNPROC 




0014123 06 


003064 


003665 


177777 


-002- 


28 






CI 


PROCSCR, EOOWF 




0014125 06 


003066 


055005 


0014132 


-001- 


29 






BNC 


IFS2952 




0014126 06 


003067 


003000 




-002- 


30 






LN 


R0,0 




0014127 06 


003070 


006212 




-002- 


31 






LR 


RTBPM,PROCPM 




0014130 06 


003071 


037000 


011154 0011154 


-002- 


32 






BL 


BRTBPM 




0014132 








-001- 


33 


IFS2952 








0014132 










34 


RDNXTBLK 








0014132 06 


003073 


131000 


045267 CTAPH 




35 




LAL 




R0,I OBUF+I OBUFD, RAO 




0014134 06 


003075 


043003 






36 




LAX 




RO, IOBPTR (RAO) 




0014135 06 


003076 


031400 


010052 0010052 




37 




LAL 




R0,OWBUFFER,RA1 




0014137 06 


003100 


043402 






38 
39 


R1 


LAX 

■ 




R0,0WBPTR(RA1) 
A.OBUFLEN - IOBPTR 


■ " ■ 


0014140 06 


003101 


003421 


001474 MASACS 


-004- 


40 






LI 


R1,0BUFLEN 




0014142 06 


003103 


005023 




-005- 


41 






SR 


R1, IOBPTR 




0014143 










42 




IF 




PROCSCR <= R1 THEN R1 ■ PROCSCR 




0014143 06 


003104 


006001 




-003- 


43 






LR 


R0,R1 




0014144 06 


003105 


005013 




-003- 


44 






SR 


RO, PROCSCR 




0014145 06 


003106 


0550C2 


0014147 


-001- 


45 






BNC 


IFS2961 




0014146 06 


003107 


006033 




-006- 


46 






LR 


R1, PROCSCR 




0014147 








-001- 


47 


IFS2 






. 












48 


RO 


■ 




R1 




0014147 06 


003110 


106001 


mmm " — 


-004- 


49 






LR 


R0,R1 


» 
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?P7 




OVERWRITE MULTISCAN FUNCTION 










0:32:20 2/06/81 **** 




READ 


ONE RECORD FROM THE OVERWRITE FILE--OW 


PROCEDURE 




CNRUTL W77D 














01 


PROCSCR - 


PROCSCR - RO 




0014150 


003111 




-005- 


02 






SR PROCSCR, RO 














03 


IOBPTR 


■ 


IOBPTR + RO 




0014151 


06 


003112 


001460 


-005- 


04 

05 


OWBPTR 


a: 


AR IOBPTR, RO 
OWBPTR + RO 




0014152 


06 


003113 


001440 


-005- 


06 






AR OWBPTR. RO 




0014153 










07 




CALL MOVST 




0014153 


06 


003114 


073033 


-001- 


08 




BSAI MXOVST n SUBROUTINE MOVST IS IN PROGRAM CSYSUB 




0014154 










09 




IF 


PROCSCR -« THEN RGBEGIN 




0014154 


06 


003115 


114273 


-002- 


10 






TZ PROCSCR 




0014155 


06 


003116 


054010 0014165 


-001- 


11 

12 


IOBPTR 




BC IFS2989 





0014156 


003117 


003060 


-005- 


13 






ZR IOBPTR 














14 






RD1BLK OVWCLNT,DUMUNLOD 




0014157 


06 


003120 


-002- 


15 






BSAI RXEQR U SUBROUTINE REQR IS IN PROGRAM CTAPH 




0014160 


06 


003121 


014400 011161 0011161 


-001- 


16 






ADDR DUMUNL0D,0VWCLNT*E(7)+RD1BLK*E(3) 




0014162 










17 






RTB TAPE 




0014162 


06 


003123 


137020 014676 0014676 


-001- 


18 






BSA ADVPMTAPE 




0014164 


06 


003125 


153746 0014132 




21 






B RDNXTBLK 




0014165 










22 






RGEND 




0014165 








-001- 


23 


IFSZ989 






0014165 










24 




IF 


IOBPTR >= A.OBUFLEN THEN B EXTRABLK 




0014165 


06 


003126 


106003 


-003- 


25 






LR R0,I0BPTR 




0014166 


06 


003127 


003400 176304 MASACS 


-003- 


26 






SI RO,OBUFLEN 




0014170 


06 


003131 


054006 0014176 


-001- 


27 






BC EXTRABLK 




0014171 


06 


003132 


031400 045267 CTAPH 




28 




LAL 


RO,I OBUF+I 0BUFD,RA1 




0014173 


06 


003134 


042423 




29 




LX 


R1, IOBPTR (RAD 




•0014174 










30 




IF 


R1 * THEN RGBEGIN 




0014174 


06 


003135 


014021 


-002- 


31 






TZ R1 




0014175 


06 


003136 


055007 0014204 


-001- 


32 






BNC IFS3003 




0014176 










33 


EXTRABLK 
















34 


IOBPTR 









0014176 


06 


003137 


103060 


-005- 


35 
36 






ZR IOBPTR 

RD1BLK OVWCLNT,DUMUNLOD 




0014177 


06 


003140 


073047 


-002- 


37 






BSAI RXEQR # SUBROUTINE REQR IS IN PROGRAM CTAPH 




0014200 


06 


003141 


014400 011161 0011161 


-001- 


38 






ADDR DUMUNLOD,OVWCLNT*E (7> +RD1 BLK*E<3) 




0014202 










39 






RTB TAPE 




0014202 


06 


003143 


137020 014676 0014676 


-001- 


40 






BSA ADVPMTAPE 




0014204 










43 






RGEND 




0014204 








-001- 


44 


IFS3003 






0014204 










45 




RTNPROC 1 




0014204 


06 


003145 


103001 


-001- 


46 




LN 


R0,1 




0014205 


06 


003146 


006212 


-001- 


47 




LR 


RTBPM,PROCPM 




0014206 


06 


003147 


037000 011154 0011154 


-001- 


48 




BL 


BRTBPM 


■ 
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OVERWRITE MULTISCAN FUNCTION 










0:32:20 2/06/81 **** 


APPEND RECORD TO END OF OVERWRITE FILE— OW 


PROCEDURE 




CNRUTL W77D 












01 n 


DESCRIPTION: 














02 n 


ADD ONE 


RECORD TO THE END OF THE OVERWRITE FILE. 


0014210 










03 


















04 H 

05 n 


ENTRT POINT: 
WRTOWRCRD 




0014210 










06 

07 * 

08 « 


INPUTS 
IOBPTR ■ 


END 


OF FILE MARK IN I OBUFD 












09 # 


I OBUFD 


= BLOCK OF TAPE CONTAINING THE END OF FILE MARK 












10 n 


TAPE IS 


POSITIONED AT THE BLOCK FOLLOWING THE ONE IN I OBUFD 


0014210 










11 

12 * 


OUTPUTS 




. 












13 n 


RO = RETURN 


CODE 












14 n 


0— ERROR: 


IOBPTR DOES NOT POINT AT. EOOWF 












15 n 


1— SUCCESS 


: RECORD HAS BEEN WRITTEN 












16 * 


IOBPTR,! 


OBUFD, AND TAPE POSITION ARE THE SAME AS ENTRY 












17 n 


CONDITIONS BUT AFTER RECORD HAS BEEN ADDED. 


0014210 










21 WRTOWRCRD 




■ 












22 


BACKSP 


OVWCLNT # POSITION FOR FIRST WRITE 


0014210 


173047 


-002- 


23 


BSAI 


RXEQR ft SUBROUTINE REAR IS IN PROGRAM CTAPH 


0014211 


06 


003152 


016100 137020 


-001- 


24 


VFD 




5, OVWCLNT 4, BACKSP 1,1 1,0 5,0 


0014212 










25 


RTB 




TAPE 


0014212 


06 


003153 


137020 014676 0014676 


-001- 


26 


BSA 




ADVPMTAPE 


0014214 


06 


003155 


103040 




29 


ZR 




OWBPTR 


0014215 


06 


003156 


031400 045267 CTAPH . 




!? 


LAL 




RO,I OBUF+I OBUFD, RA1 


0014217 


06 


003160 


042663 




LX 




PROCSCR, IOBPTR (RAD 


0014220 










32 


IF 




PROCSCR -= EOOWF THEN RTNPROC 


0014220 


06 


003161 


003665 177777 


-002- 


33 




CI 


PROCSCR, EOOWF 


0014222 


06 


003163 


054005 0014227 


-001- 


34 




BC 


IFS3019 


0014223 


06 


003164 


003000 


-002- 


35 




LN 


R0,0 


0014224 


06 


003165 


006212 


-002- 


36 




LR 


RTBPM,PROCPM 


0014225 


06 


003166 


037000 011154 0011154 


-002- 


37 




BL 


BRTBPM 


0014227 








-001- 


38 IFS3019 






0014227 


06 


003170 


130660 010052 0010052 




39 
40 R1 


LL 




PROCSCR,OWBUFFER M SET UP TOTAL LENGTH OF OVERWRITE 
A.OBUFLEN - IOBPTR 


0014231 


06 


003172 


003421 001474 MASACS 


-004- 


41 




LI 


R1,0BUFLEN 


0014233 


06 


003174 


005023 — 


-005- 


42 




SR 


R1, IOBPTR 


0014234 










43 


IF 




R1 < N(EOH) THEN RGBEGIN SKIP TO NEXT BLOCK IF HEADER DOES NOT 
FIT 
R0,R1 


0014234 


06 


003175 


006001 


-003- 


45 




LR 


0014235 


06 


003176 


003400 177772 


-003- 


46 




SI 


RO,N(EOH) 


0014237 


06 


003200 


054011 0014250 


-001- 


47 




BC 


IFS3028 


0014240 


06 


003201 


003000 




48 




ZR 


RO 


0014241 


06 


003202 


046403 




49 




STX 


RO, IOBPTR (RAD » FLAG— SKIP TO NEXT BLOCK 
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OVERWRITE MULTISCAN FUNCTION 

APPEND RECORD TO END OF OVERWRITE FILE— OW PROCEDURE 

0014242 06 003205 003060 

0014243 06 003204 003000 — 

0014244 06 003205 073047 

0014245 06 003206 014700 137020 
0014246 

0014246 06 003207 137020 014676 0014676 -001 



0014250 
0014250 
0014250 
0014250 06 003211 131000 010052 0010052 

0014252 06 003213 043002 

0014253 06 003214 031400 045267 CTAPH 

0014255 06 003216 043403 

0014256 06 003217 003421 001474 MASACS 

0014260 06 003221 005023 

0014261 

0014261 06 003222 006001 

0014262 06 003223 C05013 

0014263 06 003224 055002 0014265 

0014264 06 003225 006033 

0014265 

0014265 06 003226 106001 

0014266 06 003227 005260 

0014267 06 003230 001460 

0014270 06 003231 001440 

0014271 

0014271 06 003232 073033 

0014272 

0014272 06 003233 106003 

0014273 06 003234 003400 176304 MASACS 

0014275 06 003236 055010 0014305 

0014276 06 003237 003060 

0014277 06 003240 003000 

0014300 06 003241 073047 

0014301 06 003242 014700 137020 
0014302 

0014302 06 003243 137020 014676 0014676 



0:32:20 2/06/81 **** 



CNRUTL 



W77D 



01 






ZR 




IOBPTR 


02 






ZR 




RO # NORMAL (IE NOT EOF) WRITE 


03 






WRITE 


OVWCLNT 


-002- 04 






BSAI 


RXEQR U SUBROUTINE REQR IS IN PROGRAM CTAPH 


-001- 05 






VFD 




5, OVWCLNT 4, WRITE 1,1 1,0 5,0 


06 






RTB 




TAPE 


-001- 07 






BSA 




ADVPMTAPE 


10 






RGEND 




-001- 11 


IFS3028 








12 


WRTNXTBLK 








13 




LAL 




RO 


,OWBUFFER,RAO 


14 




LAX 




RO 


.OWBPTR (RAO) 


15 




LAL 




RO 


,I_OBUF+I 0BUFD,RA1 


16 




LAX 




RO, 


,I0BPTR(RA1> 


17 


R1 


B 




A.OBUFLEN 


-004- 18 






LI 




R1,0BUFLEN 


-005- 19 






SR 




R1, IOBPTR 


20 




IF 




PROCS 


-003- 21 






LR 




R0,R1 


-003- 22 






SR 




R0,PR0CSCR 


-001- 23 






BNC 




IFS3041 


-006- 24 






LR 




R1, PROCSCR 


-001- 25 


IFS3041 








26 


RO 


= 




R1 




-004- 27 






LR 




R0,R1 


28 


PROCSCR ■ 




PROCS 


-005- 29 






SR 




PROCSCR, RO 


30 


IOBPTR 


X 




IOBPT 


-005- 31 






AR 




IOBPTR, RO 


32 


OWBPTR 


3S 




OWBPT 


-005- 33 






AR 




OWBPTR, RO 


34 




CALL 


MOVST 


-001- 35 




BSAI 


MXOVST « SUBROUTINE MOVST IS IN PROGRAM CSYSUB 


36 




IF 




IOBPTR >* A.OBUFLEN THEN RGBEGIN 


-003- 37 






LR 




RO, IOBPTR 


-003- 38 






SI 




RO,OBUFLEN 


-001- 39 






BNC 




IFS3069 


40 


IOBPTR 




a: 







-005- 41 






ZR 




IOBPTR 


42 






ZR 




RO U NORMAL (IE NOT EOF) WRITE 


43 






WRITE 


OVWCLNT 


-002- 44 






BSAI 




RXEflR # SUBROUTINE REQR IS IN PROGRAM CTAPH 


-001- 45 






VFD 




5, OVWCLNT 4,WRITE 1,1 1,0 5,0 


46 






RTB 




TAPE 


-001- 47 






BSA 




ADVPMTAPE 
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OVERWRITE MULTISCAN FUNCTION 


0:32:20 2/06/81 **** 


APPEND RECORD TO END OF OVERWRITE FILE--OW PROCEDURE 


CNRUTL W77D 


0014304 06 003245 153744 0014250 01 B WRTNXTBLK 

0014305 02 RGEND 
0014305 -001- 03 IFS3069 

0014305 06 003246 131400 045267 CTAPH 04 LAL RO,I OBUF+I 0BUFD,RA1 
0014307 06 003250 003421 177777 05 LI R1,E00WF 

0014311 06 003252 046423 06 STX R1,I0BPTR(RA1 > 

0014312 06 003253 003000 07 ZR RO # NORMAL (IE NOT EOF) WRITE 

08 WRITE OVWCLNT 

0014313 06 003254 073047 -002- 09 BSAI RXE«R * SUBROUTINE RE8R IS IN PROGRAM CTAPH 

0014314 06 003255 014700 137020 -001- 10 VFD 5, OVWCLNT 4, WRITE 1,1 1,0 5,0 

0014315 11 RTB TAPE 
0014315 06 003256 137020 014676 0014676 -001- 12 BSA ADVPMTAPE 


0014317 15 RTNPROC 1 
0014317 06 003260 103001 -001- 16 LN R0,1 

0014320 06 003261 006212 -001- 17 LR RTBPM,PROCPM 

0014321 Oi'< 003262 037000 011154 0011154 -001- 18 BL BRTBPM 

■ ■ ■ 


' 


. ... 
■ 




• 




■ ' . ■ ■ ■ . '" 
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607 


OVERWRITE MULTISCAN FUNCTION 








0:32:20 2/06/81 **** 


SEARCH TAPE BUFFER FOR A PARTICULAR 


ADDRESS—SUBROUTINE 


CNRUTL W77D 






01 


H 


DESCRIPTION: 






02 


§ 


SEARCH I 


_OBUFD FOR A GIVEN ADDRESS 


0014323 




03 












04 


1 


ENTRY POINT: 






05 


# 


SRCHTB 




0014323 




06 












07 


n 


INPUTS 








08 


H 


RAO ■ ADDRESS OF INTEREST 






09 


f 


I_OBUFD CONTAINS A BLOCK FROM THE PAGEMON FILE 


0014323 




10 












11 


f 


OUTPUTS 








12 


# 


RO = RETURN CODE 






13 


* 


0— SUCCESS/ ADDRESS HAS FOUND 






14 


» 


RA1 


■ BASE ADDRESS OT BLOCK IN WHICH IT WAS FOUND 






15 


» 


R1 


= LOGICAL WORD INDEX INTO THE BLOCK 






16 


K 


1— FAILURE, ADDRESS NOT FOUND 






17 


H 


2--FAILURE, ADDRESS NOT FOUND IN THIS SEGMENT 


0014323 




21 


SRCHTB 




0014323 




22 




BEGIN 


0014323 06 003264 


171420 


-002- 23 




HA 




0014324 06 003265 


003060 


24 




ZR 


IOBPTR 


0014325 06 003266 


031500 045267 CTAPH 


25 




LAL 


R4,I_0BUF+I 0BUFD,RA1 


0014327 06 003270 


043503 


26 




LAX 


R4, IOBPTR <RA1) 


0014330 06 003271 


0C3502 177760 


27 




NI 


R4,M(RCRDLG) 


0014332 06 003273 


010504 


28 




RRN 


R4,S(RCRDLG) » R4 - LENGTH OF RECORD SEGMENT 


0014333 




29 




IF 


CF THEN RGBEGIN 


0014333 06 003274 


055007 0014342 


-002- 30 






BNC IFS3090 


0014334 




31 


ADRN 


■ 


0014334 06 003275 


130420 045266 LAYOUT 


32 






LL R1,I OBUF+N(EOF) 


0014336 06 003277 


024035 


33 






TBN R1,S7E0F) 


0014337 




34 






IF CF THEN RETURN 2 


0014337 06 003300 


055002 0014341 


-002- 35 






BNC IFS3092 


0014340 06 003301 


056442 


-003- 36 






BTSAGN 2 


0014341 




-002- 37 


IFS3 




0014341 




38 






RETURN 1 


0014341 06 003302 


156441 


-001- 39 






BTSAGN 1 


0014342 




40 






RGEND 


0014342 




-001- 41 


IFS3090 




0014342 06 003303 


140640 


43 




L 


R10,0(RA1> U LOAD R10,R11 WITH PAGING BUFFER ADDRESS 


0014343 06 003304 


040661 


44 




L 


R11,1(RA1> 


0014344 06 003305 


006014 


45 




LR 


R0,R12 11 LOAD R0,R1 WITH ADDRESS OF INTEREST 


0014345 06 003306 




46 




LR 


R1,R13 


0014346 06 003307 


005012 


47 




SR 


R0,R10 * PERFORM A 20-BIT SUBTRACT 


0014347 06 003310 


005033 ■ 


48 




SR 


R1,R11 # R1 = INDEX INTO SEGMENT RECORD (IF R0*0> 


0014350 06 003311 


054002 0014352 


49 




BC 


SUBDONE 
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OVERWRITE MULTISCAN FUNCTION 0:32:20 2/04/81 **** 

SEARCH TAPE BUFFER FOR A PARTICULAR ADDRESS— SUBROUTINE CNRUTL W77D 

001*351 0,6 003312 004017 01 SN R0,1 

001*352 02 SUBDONE 

001*352 06 003313 103*02 000017 03 NI R0,MSK(4) § CHECK HIGH * BITS OF 20-BIT SUBTRACT 

001*35* 0* IF CF * THEN RETURN 2 U GIVEN ADDRESS AT LEAST 6*K FROM PAGING 

BUFFER - FAIL 

001*35* 06 003315 05*002 001*356 -001- 06 BC IFS3096 

001*355 06 003316 056**2 -002- 07 BTSAGN 2 

001*356 -001- 08 IFS3096 

001*356 09 IF R1 >* R* THEN B ADRNOTFD 

001*356 06 003317 106001 -003- 10 LR R0,R1 

001*357 06 003320 00500* -003- 11 SR RO,R* 

001*360 06 003321 05*75* 001*33* -001- 12 BC ADRNOTFD 

001*361 06 003322 0*1*02 13 LA RO,N(PGDATA) (RA1) 

001*362 06 003323 072756 1* HN RA1,RA1 * SET UP RA1 FOR RETURN 

001*363 06 00332* 072777 15 HN RA1+1,RA1+1 

001*36* 16 RETURN 

001*36* 06 003325 056**0 -001- 17 BTSAGN 

■ 

7" ' 






. 
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, BOB 


OVERWRITE MULTISCAN FUNCTION 






0:32:20 2/06/81 **** 


CALCULATE HASHSUM OVER NONRESIDENT PROGRAM 


DATA 


CNRUTL W77D 






01 


t 


DESCRIPTION 






02 


* 


CALCULATE THE HASHSUM FOR A BLOCK OF NONRESIDENT PROGRAM DATA 






03 


it 


DATA IN I_OBUF MUST BE IN 16-BIT FORMAT 


0014365 


. 


04 










05 


n 


ENTRY 






06 


H 


CALCHASHNR 


001436S 




07 










08 


1 


INPUTS 






09 


n 


R1 = INITIAL HASHSUM 


00U365 




10 










11 


* 


OUTPUTS 






12 


» 


RO «= RETURN CODE 




, 


13 


* 


- SUCCESS 






14 


n 


1 - FAILURE, HASHSUM SUBROUTINE FAILED OR ABORT RECEIVED FROM WAIT 






15 


u 


R1 * HASHSUM VALUE 






19 


OWPROG OW 0(3326) » 13056 




-001- 


20 






0014365 




23 


CALCHASHNR 


0014365 




24 




BEGIN () 






25 


OWPH 


0014365 06 


003326 137000 015023 0015023 -001- 


26 




BL XXX3108 




-001- 


27 




NOTE OWPROG 'CSECT' 




-001- 


28 




NOTE ***************** PATCH AREA BEGINS AT 003764 **************** 


0015023 


-001- 


31 


XXX3108 PATCHAREA 


0015023 




32 




BEGIN 


0015023 06 




33 




HA 


0015024 06 


003765 006141 


34 




LR R6,R1 U SAVE HASHSUM 


0015025 06 


003766 003000 


35 




ZR RO 


0015026 




36 




ENDP K 13056 


0015026 06 


003767 037000 014367 0014367 -001- 


37 




BL XXX3113 




-001- 


38 




NOTE ************ LAST PATCH ADDRESS USED IS 003770 *************** 




-001- 


39 




NOTE ***** NUMBER OF PATCH WORDS USED IS 5 (DECIMAL) ******** 


0014367 


-001- 


42 


XXX3113 OWCONTINUE 


0014367 06 


43 




STL R0,I_0BUF+BLKSIZE-1 # ZERO LAST WORD IN I OBUF TO TERMINATE 










BLOCK 


0014371 




45 




EOW tt 13056 




-001- 


46 




NOTE *************** THE LAST ADDRESS OVERWRITTEN IS 003331 ********* 

* 
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OVERWRITE MULTISCAN FUNCTION 

CALCULATE HASHSUH OVER NONRESIDENT PROGRAM DATA 
0014371 06 003332 031400 045267 CTAPH 01 



0014373 

0014373 06 003334 141700 

0014374 06 003335 041721 

0014375 06 003336 041401 



03 NEWRECORD 



04 
05 

06 



LA 
LA 
LA 



■001- 08 



07 OWPROG OW 



C08 



0:32:20 2/06/81 **** 



CNRUTL W77D 
LAL R0,I_0BUF+I_0BUFD,RA1 # RA1 ■ ADDRESS OF FIRST RECORD 



RA0,0(RA1) # LENGTH AND HIGH ADDRESS BITS 

RA0+1,1(RA1) K LOW ADDRESS BITS 
R0,1(RA1) n RA1 * FIRST DATA WORD 

0(3337) n 13056 

NOTE ************* THE FIRST ADDRESS OVERWRITTEN IS 003337 ********** 



0014376 06 003337 037000 015006 0015006 -001- 

-001- 
-001- 



11 OWPROG BGNP 0(3747) v * 13056 

12 BL XXX3119 

13 NOTE OWPROG 'CSECT' 

14 NOTE ***************** PATCH AREA BEGINS AT 003747 **************** 






0015006 

0015006 06 003747 106254 

0015007 06 003750 003642 177760 
0015011 

0015011 06 003752 037000 014400 0014400 



-001- 17 XXX3119 PATCHAREA 

18 LR R10,R12 

19 NI R10,M(RCRDLG) 

20 ENDP § 13056 
-001- 21 BL XXX3121 

-001- 22 NOTE ************ LAST PATCH ADDRESS USED IS 003753 *************** 

-001- 23 NOTE ***** NUMBER OF PATCH WORDS USED IS 5 (DECIMAL) ******** 



0014400 

0014400 06 003341 110644 

0014401 

0014401 06 003342 014252 

0014402 06 003343 055003 0014405 

0014403 

■ 



0014403 06 003344 006026 



0014404 

0014404 06 003345 056440 

0014405 

0014405 



-001- 26 XXX3121 OWCONTINUE 

27 RRN R10,S(RCRDLG) H R10 

28 IF R10 ■ THEN RGBEGIN 



TOTAL LENGTH OF NEW RECORD 



002- 
001- 

001- 


29 
30 
31 
32 


TZ 
BNC 
EOW 
NOTE 


R10 
IFS3123 

* 13056 
*************** THE LAST ADDRESS OVERWRITTEN IS 003343 

********** 


001- 


36 

37 OWPROG 

38 


LR 
OW 
NOTE 


R1,R6 
0(3345) 

************* 
********** 


# 13056 
THE FIRST ADDRESS OVERWRITTEN IS 003345 


001- 
001- 


42 
43 

44 

45 IFS3123 


RETURN 
BTSAGN 
RGEND 






n DONE 

- 
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DOS 


OVERWRITE MULTISCAN FUNCTION 








0:32:20 2/06/81 **** 


CALCULATE HASHSUM OVER NONRESIDENT PROGRAM DATA 






CNRUTL W77D 


0014*05 


01 


MORENO 




■ 


0014405 06 003346 106052 


02 




LR 


R2,R10 


0014406 


03 




EOW 


n 13056 


' 


-001- 04 




NOTE 


*************** THE LAST ADDRESS OVERWRITTEN IS 003346 ********* 

* 


0014406 


08 




IF 


R2 >* HASHLENMAX+1 THEN LI R2,HASHLENMAX 




-003- 09 




LR 


R0,R2 


0014407 06 003350 003400 177677 


-003- 10 




SI 


R0,HASHLENMAX+1 


0014411 06 003352 055003 0014414 


-001- 11 




BNC 


IFS3133 


0014412 06 003353 003441 000100 


-001- 12 




LI 


R2,HASHLENMAX # 


0014414 


-001- 13 


IFS3133 




0014414 06 003355 106002 


14 




LR 


R0,R2 




15 




LR 


R1,R6 


0014416 


16 




CALL 


HASHSUMP 


0014416 06 003357 037021 016247 MASACS 


-001- 17 




BSA 


HASHSUMP 


0014420 06 003361 155012 0014432 


18 




BNC 


CALCHASHNRFAIL 


0014421 06 003362 006141 


19 




LR 


R6,R1 .' - 


0014422 


20 




CALL 


WAIT H REAL TIME WAIT ... 


0014422 06 003363 073025 


-001- 21 




BSAI 


WXAIT U SUBROUTINE WAIT IS IN PROGRAM CBLM 


0014423 06 003364 155007 0014432 


22 




BNC 


CALCHASHNRFAIL 




23 


OWPROG 


OW 


0(3365) U 13056 


• 


-001- 24 




NOTE 


************* THE FIRST ADDRESS OVERWRITTEN IS 003365 ********** 


0014424 06 003365 005242 


27 




SR 


R10,R2 n R10 = REMAINING WORDS 
0(3754) n 13056 




28 


OWPROG 


BGNP 


Q014425 06 003366 037000 015013 0015013 


-001- 29 




BL 


XXX3140 


' 


-001- 30 




NOTE 


OWPROG 'CSECT' 




-001- 31 




NOTE 


***************** PATCH AREA BEGINS AT 003754 **************** 


0015013 


-001- 34 


XXX3140 PATCHAREA 


0015013 


35 




ARL 


RA0,R2 U ADJUST RAO 


0015013 06 003754 101722 


-001- 36 




AR 


RA0+1,R2 


0015014 06 003755 055002 0015016 


-001- 37 




BNC 


IFS3142 


0015015 06 003756 004701 


-001- 38 




AN 


RA0,1 


0015016 


39 




ARL 


RA1,R2 # ADJUST RA1 


0015016 06 003757 101762 


-001- 40 




AR 


RA1+1,R2 


0015017 06 003760 055002 0015021 


-001- 41 




BNC 


IFS3143 


0015020 06 003761 004741 


-001- 42 




AN 


RA1,1 


0015021 


43 




ENDP 


K 13056 


0015021 06 003762 137000 014427 0014427 


-001- 44 




BL 


XXX3144 




-001- 45 




NOTE 


************ LAST PATCH ADDRESS USED IS 003763 *************** 




-001- 46 




NOTE 


***** NUMBER OF PATCH WORDS USED IS 8 (DECIMAL) ******** 
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OVERWRITE HULTISCAN FUNCTION 

CALCULATE HASHSUM OVER NONRESIDENT PROGRAM DATA 



0:32:20 2/06/81 **** 
CNRUTL W77D 



0014427 
0014427 
0014427 06 003370 114252 

0014430 06 003371 055755 0014405 

0014431 

0014431 06 003372 053742 0014373 



-001- 01 XXX3144 OWCONTINUE 

02 IF R10 ■«■ THEN B MORENR 
-002- 03 TZ R10 

-001- 04 BNC MORENR 

05 EOW K 13056 

-001- 06 NOTE *************** THE LAST ADDRESS OVERWRITTEN IS 003371 ********* 

* 



10 



NEWRECORD 



14 OWPROG OW 
-001- 15 NOtt 



0(3373) # 13056 

************* THE FIRST ADDRESS OVERWRITTEN IS 003373 ********** 



0014432 

0014432 

0014432 06 003373 156441 

0014433 



18 CALCHASHNRFAIL 

19 RETURN 1 n FAILURE 
-001- 20 BTSAGN 1 

21 EOW U 13056 

-001- 22 NOTE *************** THE LAST ADDRESS OVERWRITTEN IS 003373 ********* 

* 
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rot 



OVERWRITE HULTISCAN FUNCTION 
CHECK NUMBER ALGORITHM— SUBROUTINE 
01 DESCRIPTION: 



0:32:20 2/06/81 **** 
CNRUTL W77D 



0014433 
0014433 



0014433 



0014433 

0014433 
0014433 
0014433 



02 # Cheek the validity of th« data given 1n the IN:OWDATA Input message by 

03 J calculating and matching the Message cheek number. The cheek number algorithm 

04 # Implemented here will cateh all single oecurranees of the most common types 

05 # of Input error*. The type of errors covered are the following: 



06 

or 

08 
09 
10 

11 

12 
13 

14 

15 



1. Digit In error, e.g., 2345 to 2346 

2. Missing digit, e.g., 2345 to 235 

3. Inserted digit, e.g., 2345 to 23445 

4. Reversai of two adjacent digits, e.g., 2345 to 2*35 

The cheek is made over all fields oi the TTY Input menage: 
IN:OWDATA:ck,seg,adr,oid,new! 



and 1s matched 



* A two digit eheek number 1s produced from this algorithm a 

# against 'ek'. The address (adr), old data (old), and new data (new) fields 
A I ?I!J n J < £ pr ' tt ? d *? oetal d< 9 it * •"<• ««eh digit must be converted to decimal 

17 U (BCD) before the algorithm Is applied. The segment (seg) and check number 

18 » (ck) are inputted as decimal digits directly. It Is assummed that Invalid 

19 H numbers or characters for a particular data field have already been rejected 
?? * ?y P^ious routines (e.g., the digit 9 1n the 'adr' field). The cheek can 



21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
3* 
35 
36 
37 
38 
39 
40 



# be overridden by substituting a single minus character 
K number. 



(-) for the eheck 



The algorithm 1s defined as follows: 
DEFINITIONS: 

Z(1) = number of significant (embedded) zeros 
1f F(1) ■- 0. 
= If F(1) = 0. 
F(1) * d(1p)...d(12) d(11) 



data field F(1) 



2(1)3 



ALGORITHM: 

X - modOO) SUM(1*1,n)C(SUM(j»'even,p) d(1j) ♦ 1(1)3 

Y ■ moddO) SUM(1«1,n)C(SUM(j*odd, p) d(1j) + 

C - (10X + T) (2-dlglt cheek number) 

For this ease, n * 4 and F(1) * seg, F(2) 



adr, F(3) - old, F(4) - new 



ENTRIES: 
CHECKNUM 



0014433 
0014433 




43 CHECKNUM 

44 * INPUTS 

45 * SAME AS INOWDATA 
46 






47 # OUTPUTS 

48 U RO ■ - CHECK PASSED 

49 n RO -m - CHECK FAILURE 
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OVERWRITE MULTISCAN FUNCTION 
CHECK NUMBER ALGORITHM— SUBROUTINE 



J3L 



0:32:20 2/06/81 **** 
CNRUTL W770 



0014433 . 

0014433 06 003374 171420 

0014434 

0014434 06 003375 003545 000015 

0014436 06 003377 055002 0014440 

0014437 06 003400 056440 

0014440 

0014440 06 003401 106006 

0014441 

0014441 06 003402 037020 110072 CSYSUB 

0014443 06 003404 106140 

OOI4444 

0014444 06 003405 014021 

0014445 06 003406 054002 0014447 

0014446 06 003407 056441 

0014447 

0014447 06 003410 106007 

0014450 

0014450 06 003411 037020 110072 CSYSUB 

0014452 06 003413 106160 

0014453 

0014453 06 003414 014021 

0014454 06 003415 054002 0014456 

0014455 06 003416 056441 

0014456 

0014456 06 003417 103340 

0014457 06 003420 003360 

0014460 06 003421 003040 

0014461 06 003422 003063 

0014462 

0014462 06 003423 110574 

0014463 06 003424 006107 

0014464 06 003425 003502 000017 

0014466 06 003427 055006 0014474 

0014467 

0014467 

0014467 06 003430 124040 

0014470 06 003431 055012 0014502 

0014471 06 003432 004741 

0014472 06 003433 004761 

0014473 06 003434 053007 0014502 

0014474 

0014474 06 003435 126040 

0014475 06 003436 001744 

0014476 06 003437 024060 



02 

-002- 03 

04 

-002- 05 

-001- 06 

-002- 07 

-001- 08 

0? 

10 

-001- 11 

12 

13 

-002- 14 

-001- 15 

-002- 16 

-001- 17 

18 

19 

-001- 20 

21 

22 

-002- 23 

-001- 24 

-002- 25 

-001- 26 

27 

28 



31 



BEGIN 
HA 



IF 



IFS3161 



R6 
CI 
BNC 
BTSAGN 



■ BCD_MI THEN RETURN * NO VALIDITY CHECK 
R6,BCD Ml 
IFS316T 




LR 

CALL 

BSA 

LR 

IF 



TZ 
BC 



R0,R6 

TENZERO 

TENZERO 

R6,R0 

R1 — THEN RETURN 1 

R1 

IFS3165 



* ZERO THE 'ZERO' DIGITS 



IFS3165 



BTSAGN 1 



LR 

CALL 

BSA 

LR 

IF 



IFS3169 



TZ 
BC 

BTSAGN 



R0,R7 
TENZERO 
TCNZERO 
R7,R0 
R1 — 
R1 



» ZERO THE 'ZERO' DIGITS 



THEN RETURN 1 



IFS3169 
1 



ZR 
ZR 

ZR 

LN 



33 SE6N0LP 

34 « R7 CONTAINS 
RLN 
LR 
NI 
BNC 



35 

36 

37 

38 

39 

40 SEGZEHO 

41 

42 

43 

44 

45 

46 SEGNZERO 



TBN 

BNC 

AN 

AN 

B 



47 
48 
49 



SBN 

AR 

TBN 



R14 
R15 
R2 

R3,3 



BCD NUMBER 
R7,4 
R4,R7 
R4,MSK(4> 
SEGNZERO 



R2,0 

SEGNEXT 

R14,1 

R15,1 

SEGNEXT 

R2,0 
R14,R4 

R3,0 



EVEN POSITION DIGIT ACCUM. 
ODD POSITION DIGIT ACCUM. 
NONZERO DIGIT SEEN FLAG (BIT 0) 



» LOOP 4 TIMES (4 DECIMAL DIGITS IN SE6 NO. 
FIELD) 



11 ZERO FOUND 



n SET NONZERO DIGIT SEEN FLAG 

* ADD TO EVEN ACCUM. 

# CF = 1 MEANS DIGIT IN EVEN POSITION 
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A09 



OVERWRITE MULTISCAN FUNCTION 
CHECK NUMBER ALGORITHM—SUBROUTINE 

0014477 06 003440 054003 00145C2 

0014500 06 003441 005344 

0014501 06 003442 001764 

0014502 

0014502 06 003443 136060 014462 0014462 

0014504 06 003445 003022 

0014505 

0014505 06 003446 103040 



0014506 06 003447 003067 

0014507 

0014507 06 003450 110615 

0014510 06 003451 010635 

0014511 06 003452 016211 000007 

0014513 06 003454 006110 

0014514 06 003455 010510 

0014515 06 003456 003502 000007 

0014517 06 003460 055006 0014525 

0014520 

0014520 

0014520 06 003461 124040 

0014521 06 003462 055012 0014533 

0014522 06 003463 004741 

0014523 06 003464 004761 

0014524 06 003465 053007 0014533 

0014525 

0014525 06 003466 126040 

0014526 06 003467 001744 

0014527 06 003470 024060 

0014530 06 003471 054003 0014533 

0014531 06 003472 005344 

0014532 06 003473 001764 

0014533 

0014533 06 003474 136060 014507 0014507 

0014535 06 003476 006212 

0014536 06 003477 006233 

0014537 06 003500 006254 

0014540 06 003501 006275 

0014541 06 003502 036020 014505 0014505 

0014543 06 003504 006016 ~ 

0014544 

0014544 06 003505 037020 110023 CSYSUB 
0014546 06 003507 106041 



01 BC 


SEGNEXT 


02 SR 


R14,R4 


03 AR 


R15,R4 


04 SEGNEXT 




05 BX 


R3,SEGN0LP 


07 LN 


R1,2 


08 FIELDLP 




09 ZR 


R2 



11 



LN 



R3,7 



13 OCTNOLP 

14 # R8,R9 CONTAIN OCTAL NUMBER 



15 

16 

17 

18 

19 

20 

21 

22 

23 OCTZERO 

24 

25 

26 

27 

26 

29 OCTNZERO 



RLN 
RLN 
IRM 
LR 

RRN 

NI 

BNC 



TBN 

BNC 

AN 

AN 

B 



37 

39 
40 
41 
42 
43 

45 

46 

47 

-001- 48 

49 



30 
31 
32 
33 
34 
35 
36 OCTNEXT 



SBN 

AR 

TBN 

BC 

SR 

AR 

r 

BX 

LR 
LR 
LR 
LR 
BX 



R8,3 

R9,3 

R8,R9,MSK(3> 

R4,R8 

R4,8 

R4,MSK(3) 

OCTNZERO 



R2,0 

OCTNEXT 

R14,1 

R15,1 

OCTNEXT 

R2,0 

R14.R4 

R3,6 

OCTNEXT 

R14,R4 

R15,R4 

R3,0CTN0LP 

R8,R10 
R9,R11 
R10,R12 
R11,R13 
R1, FIELDLP 



0:32:20 



2/06/81 **** 



CNRUTL 



W77D 



* ADD TO ODD ACCUN. 

« LOOP 3 TIMES (3 REG PAIR FIELDS) 

* NONZERO DIGIT SEEN FLAG (BIT 0) 

* LOOP 8 TIMES (8 OCTAL DIGITS IN ADR/DATA 
FIELD) 

H SHIFT NUMBER LEFT ONE DIGIT 



* ZERO FOUND 



* SET NONZERO DIGIT SEEN FLAG 
K ADD TO EVEN ACCUM. 



* ADD TO ODD ACCUM. 



* SHIFT DOWN NEXT REGISTER PAIR 



R14,R15 CONTAIN CHECK ACCUM. (BINARY) 
LR R0/R14 
CALL BINXBCD 
BSA BINXBCD 
LR R2,R1 
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OVERWRITE MULTISCAN FUNCTION 

CHECK NUMBER ALGORITHM— SUBROUTINE 

00145*7 06 003510 010*54 

001*550 '06 003511 006017 

001*551 

001*551 06 003512 037020 110023 CSTSUB 

001*553 06 00351* 1160*1 000017 



001*555 06 003516 003**2 000377 
001*557 06 003520 037000 014731 0014731 



0014731 

0014731 06 003672 106006 

0014732 06 003673 015002 
0014733 

0014733 06 003674 056420 
001473* 



0:32:20 2/06/81 **** 
CNRUTL W77D 



001*561 





01 




RLN 


R2,4 




02 




LR 


»0,R15 




03 




CALL 


BINXBCD 


001- 


0* 




BSA 


BINXBCD 




05 




IRM 


R2,R1,MSK<4) * COMPUTED CHECK NO. 




06 


OWPROG 


OW 


0(3516) » 12449 


001- 


07 




NOTE 


************* THE FIRST ADDRESS OVERWRITTEN IS 003516 ******** 




10 




NI 


R2,MSK(8) * COMPUTED CHECK NO. 




11 


OWPROG 


BGNP 


0(3672) * 12449 


001- 


12 




BL 


XXX3176 


001- 


13 




NOTE 


OWPROG 'CSECT' 


001- 


■/4 




NOTE 


***************** PATCH AREA BEGINS AT 003672 **************** 


001- 


17 XXX3176 PATCHAREA 




18 




LR 


R0,R6 * CHECK NO. FROM TTY INPUT MESSAGE 




19 




XR 


R0/R2 # COMPARE 




20 




RETURN 




001- 


21 




BTSAG 






22 




ENDP 


NR * 12449 


001- 


23 




NOTE 


************ LAST PATCH ADDRESS USED IS 003674 *************** 


001- 


24 




NOTE 


***** NUMBER OF PATCH WORDS USED IS 3 (DECIMAL) ******** 




27 




EOW 


n 12449 


•001- 


28 




NOTE 


*************** THE LAST ADDRESS OVERWRITTEN IS 003521 ******* 
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OVERWRITE MULTISCAN FUNCTION 
MISCELLANEOUS SUBROUTINES 



0:32:20 2/06/81 **** 
CNRUTL W77D 



0014561 
0014561 
0014561 



01 
02 
03 
04 
05 
06 
07 
08 
09 
10 
11 
12 
13 
14 
15 



U DESCRIPTION 

« CHECK IF THE OVERWRITE PROGRAM IS ACTIVE AND IDLE 

* ENTRIES 

* FRSTCHK 

* INPUTS 

* NONE .',,'. 

» OUTPUTS 

tt RO = RETURN CODE 

n o - success 

* RA1 ■ BASE ADDRESS OF OW CONTROL BLOCK 'OWCTL* 

* TTY_NG - FAILURE, OW PROGRAM NOT CURRENTLY ACTIVE 

* TTY_RL - FAILURE, OW PROGRAM BUSY 



0014561 

0014561 

0014561 

0014561 06 003522 130400 043177 CTSD 

0014563 06 003524 003404 000001 

0014565 06 003526 054002 0014567 

0014566 06 003527 056467 TTYTBL 

00145(57 

0014567 06 003530 131400 010025 0010025 

0014571 06 003532 040406 

0014572 

0014572 06 003533 014000 

0014573 06 003534 054002 0014575 

0014574 06 003535 056466 TTYTBL 

0014575 

0014575 

0014575 06 003536 156460 



19 


FRSTCHK 


20 


BEGIN 


21 


IF OFLUCTL ■«■ OWPG THEN RE 


-002- 22 


LL RO, OFLUCTL 


-002-;23 


XI RO,OWPO 


-001- 24 


BC IFS3189 


-002- 25 


BTSAN TTY NG 


-001- 26 


IFS3189 


27 


LAL R0,0WCTL,RA1 


28 


L R0,N(RTBPM)(RA1) 


29 


IF RO -= THEN RETURN TTY 


-002- 30 


TZ RO 


-001- 31 


BC IFS3192 


-002- 32 


BTSAN TTY RL 


-001- 33 


IFS3192 


34 


RETURN 


-001- 35 


BTSAN 



RL It OW PROGRAM BUSY 
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OVERWRITE MULTISCAN FUNCTION 
MISCELLANEOUS SUBROUTINES 



0014576 
0014576 

0014576 

0014576 

0014576 
0014576 
0014577 
0014600 
0014602 
0014603 
0014605 
0014605 
0014606 
0014607 
0014610 
0014610 
0014611 
0014612 
0014614 
0014616 
0014617 
0014617 
0014620 
0014621 
0014623 
0014624 
0014624 



01 
02 
03 
04 
05 
06 
07 
08 
09 
10 
11 
12 











14 










15 
16 


06 003537 


171420 


______ 


-002- 


17 


06 003540 006061 


______ 




18 


06 003541 


016440 


177400 




1V 


06 003543 


010450 


______ 




20 


06 003544 


003402 


000377 




21 
22 


06 003546 


073030 




-001- 


23 


06 003547 


106160 


______ 




24 


06 003550 


006002 






25 
26 


06 003551 


073030 




-001- 


27 


06 003552 


110413 


______ 




28 


06 003553 


016160 


000740 




29 


06 003555 


016403 


177400 


, 


30 


06 003557 


010410 


._._„ 




31 
32 


06 003560 


073030 


— ... 


-001- 


33 


06 003561 


110407 






34 


06 003562 


016160 


177000 




35 


06 003564 


006007 


— — 




36 
37 


06 003565 


056420 


------ 


-001- 


38 



0:32:20 2/06/81 **** 
CNRUTL W770 



* DESCRIPTION 

* PACK A 8CD DATE INTO ONE 16-BIT WORD 

H ENTRY 
K PACKDATE 

It INPUTS 

* RO = Mndd (BCD) 

* R1 ■= yyXX (BCD) 

* OUTPUTS 

U RO = PACKED DATE (BINARY) 



PACKDATE 

n BINARY DATE 
BEGIN 
HA 
LR 
LRM 
RRN 
NI 

CALL 
BSAI 
LR 
LR 
CALL 
BSAI 
RLN 
IRM 
LRM 
RRN 
CALL 
BSAI 
RLN 
IRM 
LR 

RETURN 
BTSAG 












YEAR*E(9)+(M0NTH*32+DAY) 



.. • 



R3,R1 

R2,R0,MSK(8,8) 

R2,8 

R0,MSK(8) 

BCDXBIN 

BXCDXBIN 

R7,R0 

R0,R2 

BCDXBIN 

BXCDXBIN 

R0,5 

R7,R0,MSK(4,5> 

R0,R3,MSK(8,8) 

R0,8 

BCDXBIN 

BXCDXBIN 

R0,9 

R7,R0,MSK<7,9) 

R0,R7 






H mm 
n dd 



# SUBROUTINE BCDXBIN IS IN PROGRAM CSYSUB 
U DAY 



* SUBROUTINE BCDXBIN IS IN PROGRAM CSYSUB 

* MONTH,DAY IN R7 

U SUBROUTINE BCDXBIN IS IN PROGRAM CSYSUB 

* YEAR,MONTH,DAY IN R7 
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OVERWRITE MULTISCAN FUNCTION 


0:32:20 2/06/81 **** 




SAVE AND EXECUTE PROGRESS MARKS 


CNRUTL W77D 




• 


0014625 

0014625 06 003566 103541 000302 TTYTBL 
0014627 06 003570 053003 0014632 


01 REQPASS 

02 SPELL R6,(C,0,M,P,L) 
-001- 03 LI R6,CX0MPL 

04 B TTYACK 






0014630 

0014630 06 003571 103541 000346 TTYTBL 


06 REQFAIL 

07 SPELL R6,(S,T,0,P,P,E,D> 
-001- 08 LI R6,SXT0PPED 




. 


0014632 
0014632 


10 TTYACK 

11 PRINT FMT=(WRD,WRD,WRD) 






0014632 06 003573 173053 

0014633 06 003574 000200 

0014634 06 003575 021040 

0014635 06 003576 021042 137020 

0014636 
0014636 

0014636 06 003577 137020 014670 0014670 


-001- 13 » MESSAGE PROTOTYPE 
-001- 14 U mm WRD WRD WRD 

-002- 15 BSAI PXMRY # SUBROUTINE PMRY IS IN PROGRAM TTYAPP 
-002- 16 VFD 1,0 2,0 1,0 3,0 1,0 1,1 1,0 2,0 1,0 3,0 
-002- 17 VFD 4,TTY0_ 4,TTY0 4,TTY0 4,TTY0 WRD 
-002-18 VFD 4,TTY0 4,TTY0 4,TTY0 4,TTY0~ 

-001- 19 NOTE THE VARIABLE PORTION OF THE OUTPUT MESSAGE TO BE PRINTED IS - 

CONTAINED IN GENERAL REGISTERS R4,R5,R6, 

21 NOTTYACK 

22 RTB 

-001- 23 BSA ADVPM 








26 OWPROG OW 0(3601) ME790307 
-001- 27 NOTE ************* THE FIRST ADDRESS OVERWRITTEN IS 003601 ********** 






• 

0014640 06 003601 173047 

0014641 06 003602 015300 

0014642 06 003603 103200 

0014643 


30 CLOSE OVWCLNT # ASSURE TAPE CLOSED 
-002- 31 BSAI RXEUR U SUBROUTINE REQR IS IN PROGRAM CTAPH 
-001- 32 VFD 5, OVWCLNT 4, CLOSE 1,1 1,0 5,0 

33 IN RTBPM,0 # GO TO WAIT STATE 

34 EOW (H3E790307 

-001- 35 NOTE *************** THE LAST ADDRESS OVERWRITTEN IS 003603 ********** 






0014643 06 003604 003505 000024 TTYTBL 
0014645 

0014645 06 003606 055016 0014663 

0014646 06 003607 003545 000302 TTYTBL 
0014650 

0014650 06 003611 055013 0014663 


39 CHECK FOR 'LOD OW COMPL' MESSAGE 

40 SPELL R4,(L,0,0),0P-CI 
-001- 41 CI R4,LX0D 

42 IF CF THEN RGBEGIN 
-002- 43 BNC IFS3227 

44 SPELL R6,(C,0,M,P,L),0P»C! 
-001- 45 CI R6,CX0MPL 

46 IF CF THEN RGBEGIN 
-002- 47 BNC IFS3232 

48 OWPROG OW 0(3612) * 12438 
-001- 49 NOTE ************* THE FIRST ADDRESS OVERWRITTEN IS 003612 
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OVERWRITE MULTISCAN FUNCTION 
SAVE AND EXECUTE PROGRESS HARKS 



F09 



0:32:20 2/06/81 **** 
CNRUTL W77D 



********** 



0014651 06 003612 024161 



0014652 06 003613 003561 001200 TTYTBL 
0014654 

0014654 06 003615 055003 0014657 

0014655 06 003616 003561 001165 TTTTBL 
0014657 

0014657 



0014657 06 003620 103501 000050 TTYTBL 



0014661 06 003622 037000 014734 0014734 



0014734 

0014734 

0014734 06 003675 137020 012210 0012210 

0014736 

0014736 06 003677 156442 

0014737 





04 




TBN 


NEW OP, S (NEW OP) 




05 




SPELL 


R7,T0 / L,D) 


-001- 


06 




LI 


R7,0XLD 




07 




IF 


CF = 1 THEN SPELL R7,<N,E,W) 


-001- 


08 




BNC 


IFS3238 


-002- 


0? 




LI 


R7,NXEW 


-001- 


10 


IFS3238 








11 




EOH 


n 12438 


-001- 


12 




NOTE 


*************** THE LAST ADDRESS OVERWRITTEN IS 003617 

********** 




16 




SPELL 


R4,(V,E,R> 


-001- 


17 




LI 


R4,VXER 




18 


OWPROS 


OW 


0(3622) If 12438 


-001- 


1? 




NOTE 


************* THE FIRST ADDRESS OVERWRITTEN IS 003622 

********** 




23 


0WPR06 


BGNP 


0(3675) n 12438 


-001- 


24 




BL 


XXX3249 


-001- 


25 




NOTE 


OWPROG 'CSECT' 


-001- 


26 




NOTE 


***************** PATCH AREA BEGINS AT 003675 *************** 

* 


-001- 


30 


XXX3249 


PATCHAREA 




31 




CALL 


AUTOVEROW 


-001- 


32 




BSA 


AUTOVERCW 




33 




RETURN 


2 


-001- 


34 




BTSAGN 


2 




35 




ENDP 


NR M 12438 


-001- 


36 




NOTE 


************ LAST PATCH ADDRESS USED IS 003677 ************** 



-001- 38 



NOTE 



* 
***** NUMBER OF PATCH WORDS USED IS 3 (DECIMAL) ******** 



0014663 



41 
-001- 42 



EOW U 12438 

NOTE *************** THE LAST ADDRESS OVERWRITTEN IS 003623 
********** 
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OVERWRITE MULTISCAN FUNCTION 
SAVE AND EXECUTE PROGRESS MARKS 



0014663 
0014663 
0014663 
0014663 

0014663 



01 
-001- 02 IFS3232 

03 
-001- 04 IFS3227 



ML 



RGEND 
RGEND 



0:32:20 2/06/81 **** 
CNRUTL W77D 



06 ADVPMOUT 

07 OWPROG OW 0(3624) #3E790307 

-001- 08 NOTE ************* THE FIRST ADDRESS OVERWRITTEN IS 003624 ********** 



0014663 06 003624 131400 010025 0010025 

0014665 

0014665 06 003626 037020 111003 CSYSUB 

0014667 

0014667 06 003630 156442 

0014670 





11 


LAL 


R0,0WCTL,RA1 




12 


CALL 


ST2 13 


-001- 


13 


BSA 


ST2J3 




14 


RETURN 


2 * CONTINUE MSF 


-001- 


15 


BTSAGN 


2 




16 


EOW 


(K3E790307 


-001- 


17 


NOTE 


*************** THE LAST ADDRESS OVERWRITTEN IS 003630 ********* 

* 



0014670 

0014670 06 003631 103000 

0014671 06 003632 053007 0014700 

0014672 

0014672 06 003633 106220 

0014673 06 003634 003401 100000 

0014675 06 003636 053003 0014700 

0014676 



-001- 33 



24 ADVPM 

25 LN 

26 B 

27 ADVPMTTTOUT 

28 LR 
2? LI 

30 B 

31 ADVPMTAPE 

32 OWPROG OW 



NOTE 



R0,0 
ADVPMMERGE 

TTYLINK,RO 

RO,ES(TTYACT) 

ADVPMMERGE 

0C3637) #3E790260 

************* THE FIRST ADDRESS OVERWRITTEN IS 003637 ********** 



36 CPATCH7 BGNP 
0014676 06 003637 137000 121477 0000241 -001- 37 BL 

-001- 38 NOTE 

-001- 39 NOTE 



0(241) IX3E790260 

XXX3267 

CPATCH7 'CSECT' 

***************** PATC h AREA BEGINS AT 000241 **************** 



0121477 

0121477 

0121477 14 000241 137020 147320 BLMMA 

0121501 14 000243 103401 040000 

0121503 

0121503 14 000245 037000 014700 0003641 



-001- 42 XXX3267 PATCHAREA 

43 CALL TEMPINH 

-001- 44 BSA 

45 LI 

46 ENDP 
-001- 47 BL 
-001- 48 NOTE 
-001- 49 NOTE 



# ALLOW FULL BASE LEVEL LOOP 
TEMPINH 
RO,ES(TAPEACT) 

*3E790260 
XXX3270 

************ LAST PATCH ADDRESS USED IS 000246 *************** 
***** NUMBER OF PATCH WORDS USED IS 6 (DECIMAL) ******** 
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B01 


OVERWRITE MULTISCAN FUNCTION 






0:32:20 2/06/81 **** 


SAVE ANO EXECUTE PR06RESS HARKS 






CNRUTL W77D 


001*700 




-001- 03 


XXX3270 OWCONTINUE 


0014700 




04 


EOW 


03E79O26O 






-001- 05 


NOTE 


*************** THE LAST ADDRESS OVERWRITTEN IS 003640 ********* 

* 


0014700 




10 


ADVPMMERGE 


- 






11 


# A REAL TIME 


BREAK WILL NOW BE TAKEN. THE DISPLACEMENT FROM 






12 


U 'RTBPMORG' IS COMPUTED AND SAVED. THE HOLD-GET REGISTER 






13 


n MUST BE INCREMENTED ONE LEVEL TO ESCAPE THE SUBROUTINE CALL. 


0014700 06 003641 


172201 


14 


GN 


RTBPM,1 


0014701 06 003642 


031420 011160 0011160 


15 


LAL 


R1, RTBPMORG, RA1 


0014703 06 003644 


005217 


16 


SR 


RTBPM,RA1+1 n CALCULATE RTB PM AND SAVE 


0014704 06 003645 


014600 


17 


OR 


RTBPM,RO * SET FLAGS FOR RTB REASON 


0014705 




18 




. 


0014705 




19 


MIMODE 


L R1,HG 


0014705 06 003646 


013000 


-001- 20 


MIS 





0014706 06 003647 


052465 


-002- 21 


VFD 8.R1XT 8.HGXF 


0014707 06 003650 


003420 000020 LAYOUT 


22 


AI 


R1,ENTRYSIZ(HGAREA) » ESCAPE SUBROUTINE CALL 


0014711 




23 


MIMODE 


L HG,R1 


0014711 06 003652 


013000 


-001- 24 


MIS 





0014712 06 003653 


032525 


-002- 25 


VFD 8,HGXT 8,R1XF 


0014713 06 003654 


053750 0014663 


26 


B 


ADVPMOUT 


0014714 




30 


ADVPMTTYIN2 


. 


0014714 




31 


IF 


SEQKEY -« 2 THEN RETURN TTY NG 


0014714 06 003655 


130400 010041 0010041 


-002- 32 


LL 


RO,SEQKEY 


0014716 06 003657 003404 000002 


-002-;33 


XI 


R0,2 


0014720 06 003661 


054002 0014722 


-001- 34 


BC 


IFS3278 


0014721 06 003662 


056447 TTYTBL 


-002- 35 


BTSAGN TTY NG 


0014722 




-001- 36 


IFS3278 




0014722 




37 


ADVPMTTYIN 




0014722 06 003663 


131400 010025 0010025 


38 


LAL 


R0,0WCTL,RA1 


0014724 




3? 


CALL 


ST2J3 n SAVE TTY INPUTS 


0014724 06 003665 


037020 111003 CSTSUB 


-001- 40 


BSA 


ST2 13 


0014726 




41 


CALL 


PAPEROFF 


0014726 06 003667 


137020 161223 CTTYH 


-001- 42 


BSA 


PAPEROFF 


0014730 




43 


RETURN 


TTY PF 


0014730 06 003671 


156443 TTYTBL 


-001- 44 


BTSAGN 


TTYJ>F 
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OVERWRITE MULTISCAN FUNCTION 
OVERWRITE PROGRAM PATCH AREA 



0014731 
0014731 



• • 



C01 



01 DDELETE NOTE 1 

02 ess 100 

03 OWPATCH 

04 DINSERT NOTE ' 00 .OWPATCH 1*1,100 



0:32:20 2/06/81 **** 
CNRITL W770 



COMMON NONRESIDENT UTILITIES PR-1C954-50 

0:32:20 2/06/81 TRADE SECRET - SEE TRADE SECRET RESTRICTIVE NOTICE ON COVER SHEET CNRUTL ISSUE 05 PAGE 249 













D01 






RESIDENT TTY REQUEST ROUTINES 












0:32:20 2/06/81 


**** 
















CNRUTL 


W77D 


0007302 






01 


NRPRES CSECT 










t 




02 


# THIS CSECT CONTAINS THE RESIDEN1 


' PROGRAM WHICH TRIGGERS 










03 


» THE CALLING 


IN OF A PARTICULAR NON RESIDENT PROGRAM 






■ 




04 


n FOR UTILITIES ONLY 






0007302 






08 

09 


ALWTAPE 
R3 ■= 




TUUTIL 


» TAPE UTILITY PROGRAM 




0007302 


07 000000 103062 


-004- 


10 




LN 


R3,TUUTIL 






0007303 


07 000001 053041 0007344 




11 


8 




REQMERGE 


'■ 




0007304 






15 


ALWOW 






*t OVERWRITE PROGRAM 




000730* 


07 000002 124174 TTYTBL 




16 


TBN 




R7,S(UCL) 






0007305 






17 


IF 




- CF THEN RGBEGIN 






0007305 


07 000003 054006 0007313 


-002- 


18 




BC 


IFS3291 






0007306 


07 000004 030400 043026 CTSD 




19 




LL 


RO,SYSTATE 




^- "." 


0007310 


07 000006 024000 CBLM 




20 




TBN 


RO,S<OFL STBY) 


-■ . 


'"**' 


0007311 






21 




IF 


i CF THEN RETURN TTY NG 




0007311 


07 000007 054002 0007313 


-002- 


22 




BC 


IFS3293 




k 


0007312 


07 000010 056447 TTYTBL 


-003- 


23 




BTSAG 






0007313 




-002- 


24 


IFS3293 










0007313 






25 




RGEND 






0007313 




-001- 


26 
27 


IFS3291 
R3 




OWPG 






0007313 


07 000011 103061 


-004- 


28 




LN 


R3,0WPG 






0007314 


07 000012 053030 0007344 




29 


B 




REQMERGE 






0007315 






33 
34 


DMPREGOF 
R3 




OFLREGDMP 


* OFFLINE REGISTER DUMP 




0007315 


07 000013 103063 


-004- 


35 




LN 


R3,0FLREGDMP 






0007316 


07 000014 053026 0007344 




36 


B 




REQMERGE 






0007317 






40 
41 


ALWORD 
R3 ■ 




ORDUTL 


U OFFLINE ORDER UTILITY PROGRAM 




0007317 


07 000015 103064 


-004- 


42 




LN 


R3,0RDUTL 






0007320 


07 000016 053024 0007344 




43 


B 




REQMERGE 
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RESIDENT TTY REQUEST ROUTINES 



0007321 

0007321 07 000017 103065 -004- 

0007322 07 000020 053022 0007344 

0007323 

0007323 07 000021 103066 -004- 

0007324 

0007324 07 000022 037020 003165 CBLM -001- 
0007326 

0007326 07 000024 114000 -002- 

0007327 07 000025 054002 0007331 -001- 

0007330 07 000026 056446 TTYTBL -002- 

0007331 -001- 

0007331 07 000027 103052 CUTIL 

0007332 07 000030 010454 

0007333 

0007333 07 000031 037020 133235 CUTIL -001- 
0007335 

0007335 07 000033 114000 -002- 

0007336 07 000034 054002 0007340 -001- 

0007337 07 000035 056446 TTYTBL -002- 

0007340 -001- 
0007340 07 000036 131400 043102 CTSO 
0007342 

0007342 07 000040 037020 111003 CSYSUB -001- 



01 ALWDL 

02 R3 
03 

04 



08 CMPRMAS 

09 R3 
10 
11 
12 
13 
14 
15 
16 
17 
18 
1? 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 



LN 



DLPG 

R3,DLPG 
REQHERGE 



0:32:20 2/06/81 **** 
CNRUTL M77D 
* DATA LINK PROGRAM 



K ANY MSF'S IN PROGRESS ? 



IFS3317 



# MAIN STORE COMPARE PROGRAM 
■ CMPRPG 

LN R3, CMPRPG 
CALL ACTMSF 
BSA ACTMSF 
IF RO ■«■ THEN RETURN TTY_RL # MSF MAY BE USING PAGSCR 

TZ RO , 

BC IFS3317 

BTSAGN TTY RL 



IFS3321 



LN R2,CMPRDBF 

RLN R2,4 

CALL UREQ 

BSA UREQ 

IF RO -« THEN RETURN TTY RL 

TZ RO 

BC IFS3321 

BTSAGN TTY RL 



n CLIENT NUMBER FOR UTILITY REQUEST 
* REQUEST DISPLAY BUFFER 



LAL 

CALL 

BSA 



R0,PAGSCR,RA1 

ST2J3 

ST213 



# SAVE INPUT REGISTERS DURING PAGE-IN 



0007344 

0007344 07 000042 103441 000007 BLMMA 

0007346 

0007346 07 000044 037020 003031 CBLM 

0007350 

0007350 07 000046 155002 0007352 

0007351 07 000047 056446 TTYTBL 

0007352 

0007352 07 000050 134460 043177 CTSD 
0007354 

0007354 07 000052 056443 TTYTBL 



-004- 



35 
36 
37 
38 
39 
40 
41 
42 
43 
-001- 44 



33 REQHERGE 

34 R2 



-001- 

-002- 
-003- 
-002- 



CALL 

BSA 

IF 



IFS3331 



A.OFLUTIL 
LI R2,0FLUTIL 

MSFREQN 

MSFREQN 

CF THEN RETURN TTY RL 
BNC IFS3331 
BTSAGN TTY RL 



STL 

RETURN 
BTSAGN 



R3,0FLUCTL 
TTY PF 
TTY PF 
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F01 



CNRUTL INDEX AND WORD COUNTS 



0007354 



0:32:20 2/06/81 **** 
CNRUTL W77D 



01 



INDEXGEN 



-001- 05 If SECTION TITLE 

-001- 06 * NONRESIDENT UTILITY PROGRAM MONITOR 

-001- 07 H NONRESIDENT UTILITY TEMPORARY STORE DEFINITION 

-001- 08 ff TAPE UTILITY MULTISCAN FUNCTION 

-001- 09 # TAPE UTILITY ADMINISTRATIVE CONTROL 

-001- 10 * TAPE UTILITY TTY INPUT MESSAGE PROCESSING ROUTINES 

-001- 11 If TAPE UTILITY MONITOR ROUTINES 

-001- 12 # TAPE UTILITY SUBROUTINES 

-001- 13 U TAPE UTILITY ABORT FUNCTION 

-001- 14 If TAPE UTILITY PATCH AREA 

-001- 15 If OFF-LINE REGISTER DUMP MULTISCAN FUNCTION 

-001- 16 U COMPARE MAIN STORE MULTISCAN FUNCTION 

-001- 17 H MAIN FUNCTION 

-001- 18 K PATCH AREA 

-001- 19 # OVERWRITE MULTISCAN FUNCTION 

-001- 20 * TTY CATALOG TABLE 

-001- 21 If ADMINISTRATIVE CONTROL 

-001- 22 K INPUT GENERIC IDENTIFIER 

-001- 23 # INPUT ISSUE IDENTIFIER 

-001- 24 If INPUT OVERWRITE DATA 

-001- 25 # INPUT OVERWRITE 

-001- 26 # OUTPUT OVERWRITE BUFFER 

-001- 27 H CHANGE OVERWRITE STATUS 

-001- 28 If LOAD OR VERIFY OVERWRITE 

-001- 29 If INITIALIZE, UPDATE, OR OUTPUT THE OVERWRITE FILE 

-001- 30 # STOP THE OVERWRITE FUNCTION 

-001- 31 If HASHSUM FUNCTION DESCRIPTION 

-001- 32 If RESIDENT GENERIC AND TRANSLATION DATA HASHSUMS 

-001- 33 If NONRESIDENT GENERIC AND BOOTSTRAP HASHSUMS 

-001- 34 H UPDATE AND VERIFY HASHSUM FUNCTIONS 

-001- 35 If SEARCH OVERWRITE FILE--OW PROCEDURE 

-001- 36 If READ ONE RECORD FROM THE OVERWRITE FILE--OW PROCEDURE 

-001- 37 If APPEND RECORD TO END OF OVERWRITE FILE--OW PROCEDURE 

-001- 38 * SEARCH TAPE BUFFER FOR A PARTICULAR ADDRESS—SUBROUTINE 

-001- 39 If CALCULATE HASHSUM OVER NONRESIDENT PROGRAM DATA 

-001- 40 If CHECK NUMBER ALGORITHM— SUBROUTINE 

-001- 41 If MISCELLANEOUS SUBROUTINES 

-001- 42 H SAVE AND EXECUTE PROGRESS MARKS 

-001- 43 # OVERWRITE PROGRAM PATCH AREA 

-001- 44 If RESIDENT TTY REQUEST ROUTINES 



ADDRESS WORD COUNT 


000000 


21 




000000 


522 




000000 


1693 




000000 




52 


000064 




279 


000513 




1117 


002650 




75 


002763 




70 


003071 




100 


000000 


169 




000000 


292 




000000 




247 


000367 




45 


000000 


2078 




000444 







000000 




83 


000123 




10 


000135 




10 


000147 




189 


000444 




108 


000620 




135 


001027 




78 


001145 




234 


001517 




210 


002041 




12 


002055 







002055 




155 


002310 




189 


002605 




131 


003010 




40 


002(060 




57 


003151 




75 


003264 




34 


003326 




38 


003374 




86 


003522 


. 


36 


003566 




68 


003672 




100 


000000 


43 





COMMON NONRESIDENT UTILITIES 
0:32:20 2/06/81 TRADE SECRET 



SEE TRADE SECRET RESTRICTIVE NOTICE ON COVER SHEET CNRUTL 



PR-1C954-50 
ISSUE 05 PAGE 



252 



• • 



CNRUTL .TNDEX AND WORD COUNTS 









05 * IM/OM SECTION STRIPPED OUT 

06 CNRUTIL MAXSIZE 0,25 

07 NRUTS MAXSIZE 0,1012 

08 TAPUTL MAXSIZE 0,3235 

09 ENTRDPR6 MAXSIZE 0,251 

10 CMPRPROG MAXSIZE 0,444 

11 OWPROG MAXSIZE 0,4036 

12 NRPRES MAXSIZE 0,53 



601 














0:32:20 


2/06/81 


**** 






CNRUTL 


W77D 


IS ASSEMBLY IS 04818 










OUT. 










■ 
























• 












: 
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A02 


PATCH 


HISTORY 










0:32:20 2/06/81 **** 


LISTING Of INDIVIDUAL PATCHES 










CNRUTL W77D 


0007354 


*/*/*/*/0122$1/*/*/*/* 
0001054 


-002- 
-001- 


01 
02 
03 
04 
05 
06 
07 


PBEGIN PROG=CNRUTL CSECT"TAPUTL ORG« TRN0=12281 SERNOB*65021 

* THIS PATCH WILL ALLOW THE DMP:TAPE BY BLOCK AND 

* THE DMP:TAPE DIRECTORY ROUTINES TO WORK . 
DDELETE NOTE 1 

EXND EflU 0(1054) 
TCEND 
NOTE ************************************************************** 


0007354 


*/*/*/*/012280/*/*/*/* 


-002- 
-001- 


14 
15 
16 
17 
18 





THIS 
ALSO 


PBEGIN PROG-CNRUTL TRNO*12280 SERN08«63241 

PATCH ALLOWS THE OP:OW ROUTINE TO WORK 

ZEROS THE GENISS TABLE ON AN ALW:OW . 

TCEND 

NOTE ************************************************************** 


0007354 


*/*/*/*/012364/*/*/*/* 


-002- 
-001- 


25 
26 
27 
28 
2? 


n THIS 
» THIS 


PBEGIN PROG=CNRUTL TRNO-12364 SERN0B»=62679 

PATCH ALLOWS HASHSUMS TO WORK PROPERLY 

PATCH ALSO CORRECTS PRINT OUT OF ISSID WORD. 

TCEND 

NOTE ************************************************************** 


COMMON 


NONRESIDENT UTILITIES 










* 
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0:32 


:20 2/06/81 TRADE SECRET - 


SEE TRADE SECRET 


IESTRICTIVE NOTICE ON COVER SHEET CNRUTL ISSUE 05 PAGE 254 



• • 



PATCH HISTORY 

LISTING Of INDIVIDUAL PATCHES 

*/*/*/*/012439/*/*/*/* 



0007354 



B02 

0:32:20 2/06/81 **** 
CNRUTL W77D 

-002- 01 PBEGIN PROG*CNRUTL TRNO=12439 SERNOB=62635 

02 * THIS PATCH ALLOWS THE PRINTING OF THE OVERWRITE FILE 

03 U WITHOUT BREAKS (SPACES) IN THE PRINTOUT. 
OA TCEND 

-001- 05 NOTE ************************************************************** 



*/*/*/*/012450/*/*/*/* 



0007354 



TRNO-12450 SERN0B=61610 



-002- 12 PBEGIN PROG=CNRUTL 

13 * THIS PATCH ALLOWS THE SEARCH ROUTINE IN THE OVERWRITE 

14 U PROGRAH TO SEARCH FOR AN OW NO. OF 65535 (ALL ONES) . 

15 TCEND 

-001- 16 NOTE ************************************************************** 



*/*/*/*/012438/*/*/*/* 



0007354 



-002- 23 PBEGIN PROG-CNRUTL TRNO-12438 SERNOB-61892 

24 # THIS PATCH ALLOWS THE - LOD:OW:NEW! - TTY INPUT MESSAGE TO 

25 U LOAD AND VERIFY NEW DATA IN AN OVERWRITE. 

26 TCEND 

-001- 27 NOTE ************************************************************** 
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PATCH HISTORr 

LISTING OF INDIVIDUAL PATCHES 

*/*/*/*/012447/*/*/*/* 



0007354 



£02 

0:32:20 2/06/81 **** 
CNRUTL W77D 

-002- 01 PBEGIN PROG=CNRUTL TRN0=12447 SERN0B=61972 

02 » THIS PATCH ALLOWS THE LOD:OHAS TAPE ROUTINE TO WORK 

03 K WHEN BAD PARITY HAS WORDS ARE IN THE ONLINE. 

04 TCEND 

-001- 05 NOTE AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 



*/*/*/*/012436/*/*/*/* 



0007354 



-002- 12 PBEGIN PROG=CNRUTL TRN0=12436 SERN0B=62840 

13 « THIS PATCH ALLOWS THE LABEL DUMP ROUTINE TO WORK CORRECTLY . 

14 TCEND 

-001- 15 NOTE ************************************************************** 



*/*/*/*/012437/*7*/*/* 



0007354 " 



-002- 22 PBEGIN PROG=CNRUTL TRN0*12437 SERN0B*63876 

23 n THIS PATCH ALLOWS THE COPY:TAPE ROUTINES TO WORK CORRECTLY. 

24 TCEND 

-001 - 25 NOTE ************************************************************** 
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PATCH HISTORY 

LISTING OF INDIVIDUAL PATCHES 

*/*/*/*/012607/*/*/*/* 



0007354 



D02 



0:32:20 2/06/81 **** 



CNRUTL 



W77D 



-002-01 PBESIN PROG=CNRUTL TRN0*12607 SERN0B*61472 

02 U THIS PATCH ALLOWS THE SSP DB LITES TO DISPLAY 

03 # THE MAS ADDRESSES CORRECTLY 

04 TCEND 

-001- 05 NOTE ************************************************************** 



*/*/*/*/01 2638/*/*/*/* 



0007354 



-002- 12 PBEGIN PROG=CNRUTL TRNO-12638 SERN0B=61052 

13 # CORRECT LINKAGE TO PUBLIC SYMBOLS CHANGED BY CIPL RELOAD 

14 TCEND 

-001- 15 NOTE ************************************************************** 



*/*/*/*/012448/*/*/*/* 



0007354 



TRNO-12448 SERN08-47643 



-002- 22 PBEGIN PROG-CNRUTL 

23 * THIS PATCH REMOVES UNUSED CODE 

24 TCEND 
-001- 25 NOTE ************************************************************** 
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PATCH HISTORT 

LISTING OF INDIVIDUAL PATCHES 

t */*/*/*/011785/*/*/*/* 
0007354 



iPJ 

0:32:20 2/06/81 **** 
CNRUTL W77D 

-002- 01 PBEGIN PROG=CNRUTL TRN0*11785 SERN0B=60877 

02 ZERO THE OVERWRITE STATUS BEFORE COPYING TO THE OW FILE. 

03 TCEND 

-001- 04 NOTE ************************************************************** 



*/*/*/*/012634/*/*/*/* 



0007354 



-002- 11 PBEGIN PROG=CNRUTL TRNO-12634 SERNOB-61245 

12 n FIXES SEVERAL PROBLEMS IN THE COMPARE MAIN STORE PROGRAM. 

13 # CORRECTS REFERENCES TO FLAG REGISTER DURING INITIAL SETUP. 

14 TCEND 

-001- 15 NOTE ************************************************************** 









*/*/*/*/012649/*/*/*/* 



0007354 



-002- 22 PBEGIN PROG«CNRUTL TRNO-12649 SERN0B=62271 

23 U THIS PATCH ALLOWS THE FILE COPYING ROUTINE TO WORK CORRECTLY. 

24 TCEND 

-001 - 25 NOTE ************************************************************** 
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PATCH HISTORY 

LISTING OF INDIVIDUAL PATCHES 

*/*/*/*/012650/*/*/*/* 
0007354 



CPJ 

0:32:20 2/06/81 **** 
CNRUTL W77D 

-002- 01 PBE6IN PROG-CNRUTL TRN0*12650 SERN0B=61994 

02 n THIS PATCH ALLOWS THE SEGMENT DUMP ROUTINE TO WORK . 

03 TCEND 

-001- 04 NOTE ************************************************************** 



*/*/*/*/013054/*/*/*/* 



0007354 



TRN0=13054 SERN0B*48839 



-002- 11 PBEGIN PROG=CNRUTL 

12 It REVERSE SUBROUTINES CALLS FOR QOFLCC AND INITOST 

13 K THIS PATCH COORDINATES WITH TC 59698 

14 TCEND 

-001- 15 NOTE ************************************************************** 



*/*/*/*/013053/*/*/*/* 



0007354 



"° 02 " 11 u . PBE6IN P"OG=CNRUTL TRNO-13053 SERNOB-48840 

23 U THIS PATCH CHANGES THE REGISTER ASSIGNMENT FOR FOR TU INPUT MESSAGE LOO:OMAS. 

24 M THIS PATCH MUST COORDINATE WITH TC 59472 

25 TCEND 

-001- 26 NOTE ************************************************************** 
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PATCH HISTORY 

LISTING OF INDIVIDUAL PATCHES 

*/*/*/*/012651 /*/*/*/* 



0007354 



602 

0:32:20 2/06/81 **** 
CNRUTL W77D 

-002- 01 PBEGIN PROG=CNRUTL TRNO-12651 SERN0B=59610 

02 * THIS PATCH PUTS THE BEGINNING ADDRESS IN THE PROPER REGISTER 

03 # FOR A HASHSUM CALCULATION. 

04 TCEND 

-001- 05 NOTE *ft*A***rt************ft*#****rt***rtrt***************************(lr* 



*/*/*/*/01244?/*/*/*/* 



0007354 



-002- 12 PBEGIN PROG=CNRUTL TRN0»12449 SERN0B=61585 

13 It THIS PATCH ALLOWS THE CHECK NUMBER ALGORITHM SUBRUTINE 

14 U TO WORK CORRECTLY . 

15 TCEND 

-001 - 1 6 NOTE A************************************************************* 



*/*/*/*/013056/*/*/*/* 



0007354 



-002- 23 PBEGIN PROG=CNRUTL TRN0*13056 SERNOB-59358 

24 * CORRECT CODING ERRORS IN OP:HASHNR ROUTINES. 

25 TCEND 

-001- 26 NOTE a************************************************************* 
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PATCH HISTORY 

LISTING OF INDIVIDUAL PATCHES 

*/*/*/*/011977/*/*/*/* 



0007354 



_A9L 



0:32:20 



2/06/81 **** 



CNRUTL 



W77D 



-002- 01 PBESIN PROG=CNRUTL TRNO-11977 SERN0B*59176 

02 H THIS PATCH REPLACES CODE IN PATCH NO. 63876 TO TAKE CARE OF 

03 THE CASE WHERE NO LENGTH IS TYPED. THE RESULTS WILL BE A 

04 # DEFAULT COPY OF ONE TAPE BLOCK. 

05 TCEND 

-001- 06 NOTE AAAAAAAAAAAAAAAAAAA A A AAA AAA AAA *A AAA AAA A****** A ******* A A A****** 



*/*/*/*/01 2809/*/*/*/* 



0007354 



TRNO-12809 SERN0B«=59165 



-002- 13 PBEGIN PROG*CNRUTL 

14 # FIX COPY ROUTINE TO DO ALL TRACKS COPY. 

15 TCEND 
-001- 16 NOTE ************************************************************** 



*/*/*/*/013536/*/*/*/* 



0007354 



TRNO-13536 SERN0B*49638 



-002- 23 PBEGIN PROG-CNRUTL 

24 if PROBLEM* 

25 » CUO HILL NOT LOAD FROM TDC WHEN AN OFFLINE BOOT 

26 * IS BEING DONE. 

27 U SOLUTION: 

28 U ADD A MICRO INSTRUCTION TO LOAD THE B REG FROM THE SS. 

29 It PROBLEM 2: 

30 U HHEN OFFLINE BOOT IS STOPPED BY TYPING STOP:TAPUTIL A NEW 

31 It INPUT OF LOD:0MAS;BOOT RIGHT AFTER WILL RESULT IN A 

32 * TAPE RMV MESSAGE. 

33 H SOLUTION 2: 

34 $ CALL SUBROUTINE TO INITIALIZE THE TDC HARDWARE. 

35 TCEND 

-001- 36 NOTE ************************************************************** 
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PATCH HISTORT 

LISTING OF INDIVIDUAL PATCHES 

*/*/*/*/011845/*/*/*/* 






0007354 



B03 

0:32:20 2/06/81 **** 
CNRUTL W77D 

-002- .01 PBEGIN PROG=CNRUTL TRN0«"11845 SERN0B=57238 

02 # PROBLEM: 

03 ft PACTION GIVEN WITH TAPEUTIL STOPPED MESSAGE CONFUSING. 

04 n SOLUTION: 

05 REMOVE PACTION FROM MESSAGE. 

06 TCEND 

-001- 07 NOTE ************************************************************** 



*/*/*/*/013591 /*/*/*/* 



0007354 



-002- 14 PBEGIN PROG=CNRUTL TRN0*13591 SERNOB-57658 

15 » NOTE! THIS PATCH REPLACES CODE IN TC #48840. 

16 » THIS PATCH COORDINATES WITH TC 57432. 

17 U NOTE! TC 57432 MUST BE MAGED TO PERFORM TEST.' 

18 n PROBLEM: TFA #A45 

1? n NO HAY TO LOAD PATCHES FROM THE PATCH FILE INTO 

20 * THE OFFLINE STORE AFTER A LOD:OMAS GENERIC AND TRANSLATION 

21 U HAVE BEEN DONE. 

22 * SOLUTION: 

23 # LOD:OMAS PATCH ROUTINE. LOADS THE PATCH DATA FROM 

24 K THE PATCH FILE INTO THE OFFLINE STORE. 

25 TCEND 

-001- 26 NOTE ************************************************************** 
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PATCH HISTORY 

LISTING Or INDIVIDUAL PATCHES 

*/*/*/*/013059/*/*/*/* 



0007354 



; co3 

0:32:20 2/06/81 **** 
CNRUTL W77D 

-002- 01 PBEGIN PROG«CNRUTL .TRN0=13059 SERN0B«56860 

02 n PROBLEM: 

03 $ A NEED TO CLEAN UP AND RESTORE TDCS TO PRE-AUDIT 

04 f» STATE WHEN AUDIOTAPE IS ABORTED. 

05 H SOLUTION: 

06 * RESTORE TAPE STATUS WORD AND ZERO OUT AUDIT FUNCTION CODE. 

07 TCEND 

-001- 08 NOTE ************************************************************** 



0007354 



15 



END 
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D03 



PATCH HISTORY 
VALUE T NAME 



DEF/REF 



ATTRIBUTES AND REFERENCES 



0:32:20 2/06/81 **** 
CNRUTL W77D 



01 
01 
01 

01 

01 

01 
01 
01 



74047624 
0120770 
0121513 
0121047 
0120754 
0017165 
0020323 
0017232 
0121455 
0017274 
0121463 
0017546 
0121505 
0017564 
0020426 
0017637 
0115213 

01 0017720 
0121367 
0121602 
0121401 

01 0017723 
0115221 
0017775 
0121313 
0114446 
0020046 
0121471 
0020101 
0114205 
0020275 
0113700 
0020313 
0021143 
0021010 
0112033 
0112042 

01 0011152 
0121522 
0011566 
0014746 
0011721 
0111540 
0012737 
0014774 
0013305 
0015030 
0013371 
0015001 



01 



01 

01 

01 

01 
01 

01 



01 
01 
01 

01 
01 
01 
01 
01 
01 



• STOP 

XXXI 004 

XXX1011 

XXX1013 

XXX1032 

XXX1034 

XXX1044 

XXX1047 

XXX1059 

XXX1062 

XXX1143 

XXX1148 

XXX1160 

XXX1165 

XXX1186 

XXX1188 

XXX1223 

XXX1228 

XXX1234 

XXX1242 

XXX1244 

XXX1264 

XXX1287 

XXX1290 

XXX1308 

XXX1327 

XXX1331 

XXX1346 

XXX134? 

XXX1405 

XXX1409 

XXX1426 

XXX1428 

XXX1684 

XXX1686 

XXX1867 

XXX1893 

XXX1896 

XXX2103 

XXX2107 

XXX2151 

XXX2154 

XXX2509 

XXX2511 

XXX2680 

XXX2682 

XXX2715 

XXX2719 

XXX2807 



81-41 

83-01 

83-12 

87-15 

87-30 

89-01 

89-15 

90-28 

90-39 

99-07 

99-19 

100-17 

100-29 

102-12 

102-24 

105-25 

105-37 

106-14 

106-37 

107-01 

108-22 

110-15 

110-25 

111-41 

113-16 

113-30 

114-37 

115-01 

123-01 

123-13 

124-07 

124-18 

140-24 

140-36 

152-03 

153-24 

153-37 

168-19 

169-01 

172-40 

173-14 

194-29 

194-39 

205-39 

206-01 

209-36 

210-01 

217-01 



81-36 

82-46 

83-07 

87-10 

87-25 

88-41 

89-10 

90-23 

90-34 

99-02 

99-14 

100-12 

100-24 

102-07 

102-19 

105-20 

105-32 

106-09 

106-31 

106-42 

108-17 

110-10 

110-20 

111-36 

113-11 

113-25 

114-32 

114-42 

122-41 

123-07 

124-02 

124-13 

140-19 

140-31 

151-46 

153-18 

153-31 

168-13 

168-41 

172-34 

173-08 

194-24 

194-34 

205-34 

205-44 

209-31 

209-45 

216-44 
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PATCH HISTORY 
VALUE T NAME 



_E03_ 



DEF/REF ATTRIBUTES AND REFERENCES 



0:32:20 2/06/81 **** 
CNRUTU W77D 



01 0013602 L XXX2810 


217-13 217-08 


01 0014737 L XXX2923 


226-15 


226-10 


01 0014073 L XXX2928 


226-30 


226-25 


01 0015023 I XXX3108 


235-31 


235-26 


01 0014367 L XXX3113 


235-42 


235-37 


01 0015006 L XXX3119 


236-17 


236-12 


01 0014400 L XXX3121 


236-26 


236-21 


01 0015013 L XXX3140 


237-34 


237-29 


01 0014427 L XXX3144 


238-01 


237-44 


01 0014731 U XXX3176 


242-17 


242-12 


01 0014734 L XXX3249 


246-30 


246-24 


0121477 U XXX3267 


247-42 


247-37 


01 0014700 U XXX3270 


248-03 


247-47 


01 0020436 L XXX440 


33-29 


33-24 


01 0015402 L XXX442 


33-40 


33-35 


01 0020444 L XXX449 


34-21 


34-16 


0112331 L XXX486 


39-10 


39-05 


01 0015524 L XXX488 


39-25 


39-20 


0112323 U XXX516 


41-28 


41-23 


01 0015604 L XXX518 


41-39 


41-34 


01 0020413 L XXX553 


44-45 


44-40 


01 0015654 L XXX555 


45-14 


45-09 


0121352 L XXX583 


47-13 


47-07 


01 0015672 L XXX588 


47-31 


47-25 


0120744 L XXX627 


49-27 


49-21 


01 0015721 L XXX636 


50-03 


49-46 


0112010 L XXX762 


59-19 


59-14 


01 0016207 L XXX764 


59-28 


59-23 


0111741 L XXX786 


60-31 


60-26 


0112057 L XXX812 


62-37 


62-32 


01 0016327 L XXX830 


63-29 


63-24 


0121340 L XXX875 


68-07 


68-02 


01 0016467 L XXX878 


68-1 7 


68-12 


0121345 L XXX885 


68-38 


68-33 


01 0016475 L XXX887 


69-01 


68-43 


01 0020340 L XXX896 


70-32 


70-27 


0121611 L XXX941 


78-23 


78-18 


01 0017102 L XXX946 


78-34 


78-29 


0121326 L XXX952 


79-07 


79-02 


0120763 L XXX994 


81-07 


81-02 


01 0017151 U XXX996 


81-16 


81-11 


0000201 A XBITCNT 




1-08 


1 J XBOP 




1-08 


0000002 A XCLAS 




LIBNUM=13 


0000006 A XMAXWRO 




LIBNUM-13 


CNRUTU' T XNAMEX 






J XOWX 


1-10 




J XPFTX 






ALL' T XSAVREGS 







1-08 
1-08 
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PATCH HISTORY 

VALUE T NAME 

0000050 A XT 
0000010 *A XTA1X 



DEF/REF 



ATTRIBUTES AND REFERENCES 



0:32:20 2/06/81 **** 
CNRUTL W77D 



J 


XTCHEADX 


1-10 


jPRLINE 1,1, 






, 


XUSX 




" T 


XUSING12 




" T XUSING14 




0000006 A 


XWRDCNT 




.CTVTAB V 


elr wRds 




H P 


clr wRdsX XC 

sysOb 




TTYTBL X 


cHreeTry 


32-33 


TTYTBL X 


qt 


55-19 


TTYTBL X 


qtzzzz 


175-21 


CTVTAB V 


rgchkAdr 




14 P 


rgchkAdrXJtC 
SYSUB 




TTYTBL X 


tapeuTH 


28-27 


TTYTBL X 


zz 


55-20 


TTYTBL X 


zzzz 


130-13 


TTYTBL X 


AXLW 


28-26 


TTYTBL X 


AXUOIT 


76-45 


0121100 L 


A READ 


84-06 


0121115 L 


A WAIT 


84-31 


0000002 A 


AAX 




01 0022613 L 


ABORT 


127-25 


01 0020215 L 


ABORTTU 


121-01 


01 0017113 L 


ABORTTU 


79-47 


01 0016155 L 


ABORTTU 


57-33 



33-07 33-19, 34- 

46-24, 46- 

56-01, 58- 

80-43, 81- 

98-23, 98- 

109-36,110- 

123-28,123- 

143-21,144- 

196-12,203- 

214-36,216- 

245-27,245- 



04, 37- 
36, 47- 
06, 58- 
32, 82- 
48, 99- 
06,110- 
47,124- 
01,146- 
29,204- 
40,218- 
49,246- 



26, 39- 
02, 47- 
29, 59- 
42, 84- 
38,100- 
39,111- 
26,135- 
24,151- 
01,204- 
15,221- 
19,247- 



01, 40- 
46, 48- 
08, 60- 
08, 87- 
08,101- 
13,111- 
07,135- 
41,153- 
41,205- 
04,222- 
08,247- 



01, 40 
11, 48 
20, 62 
05, 88 
11,101 
32,112 
18,135 
13,167 
30,209 
35,225 
33 



-12, 40 
-23, 48 
■23, 64 
-37, 90' 
-44,102 
-10,112' 
■29,137' 
-37,168 
•26,210' 
■25,226 



-26, 40- 
■39, 49- 
•15, 66- 
■19, 92- 
•33,104- 
•29,113- 
•06,140- 
•08,171- 
•12,210- 
•05,235- 



40, 41- 
03, 49- 
13, 67- 
09, 92- 
13,105- 
07,114- 
15,141- 
02,172- 
39,211- 
20,236- 



19, 42 
16, 49 
29, 67 
45, 93 
16,106 
27,119 
10,141 
29,174 
11,212 
08,236 



-09, 42- 
-29, 54- 
-43, 68- 
-29, 94- 
-05,106- 
-34,120- 
-23,141- 
-06,188- 
-25,212- 
-38,237- 



■33, 44- 
•01, 54- 
■29, 78- 
•02, 95- 
•26,108- 
■04,121- 
•41,142- 
■04,188- 
■42,213- 
■24,238- 



20, 44-36, 
24, 54-39, 
14, 78-43, 
12, 97-39, 
48,109-17, 
44,122-36, 
11,142-40, 
28,194-20, 
18,213-42, 
15,242-07, 



■ 



LIBNUM*13 
LIBNUM=15 



1-08 
151-38,152-08 



LIBNUM=15 

32-33, 61-29 

55-19, 55-42, 55-43, 56-34, 56-35, 63-18, 70-39,130-12,130-29,131-07,176-25,198-07 
175-21 175-21,175-39,194-07,195-11,197-16 ' 

LIBNUM*15 137-36,159-17,204-30 

LIBNUM=15 •*■ '' 

28-27, 57-10,124-37 

55-20, 59-06, 63-05, 63-19, 70-41 
130-13,130-30,131-08,176-26 

28-26,151-07,151-30 

76-45, 79-18, 79-43 

84-28, 85-14 

84-22, 84-43 
LIBNUH=13 1-08 
129-31 

28-14, 57-34, 79-23, 79-48, 84-30, 96-06,103-15,111-07,121-25 

73-22, 74-47, 75-16, 75-47, 77-06, 90-13, 91-22 

52-31, 52-44, 56-48, 56-49, 58-44, 66-39, 68-24 
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PATCH HISTORr 
VALUE T NAME 



01 0017456 
0121113 
01 0015615 

01 0011047 
01 0016705 

CBLM 
01 0012066 
01 0017007 

csysub 

01 0016700 
01 0012417 
01 G014334 
01 0021106 
01 0014670 
01 0014700 
01 0014663 
01 0014676 



01 0014722 

01 0014714 

01 0014672 

01 0013531 

01 0020077 

01 0017315 

0000243 

0000234 

TTYTBL 

10 
CIPL 
TUTBL 

10 
0007321 
CTAPH 
0007317 
0007304 
0007302 
0000161 
0000000 

0000101 
0000102 
0000303 
0000305 
0000107 
0000110 
0000311 
0000113 



ABORTTU 

ABORTTUT 

ABOVE 

ABTB 

ABTCONT 

ACEPTCK 

ACTMSF 

AC TOW 

ADCNT1 

A0016 

ADRETN 

ADRFND 

ADRNOTFD 

ADVANCE 

ADVPM 

ADVPMMERGE 

ADVPMOUT 

ADVPMTAPE 



ADVPMTTYIN 

ADVPMTTYIN2 

ADVPMTTYOUT 

ADVSESNR 

ADVSUBST 

ADVSUBST 

AIXF 

AKXF 

ALL 

ALL OP 

ALLMAS 

ALM 

ALM OP 

ALWDL 

ALWERRCV 

ALWORD 

ALWOW 

ALWTAPE 

ARXF 

ASC_ 

ASC A 
ASC B 
ASC C 
ASC E 
ASC 6 
ASC H 
ASC_I 
ASC K 



_G03_ 



0:32:20 2/06/81 **** 



OEF/REF ATTRIBUTES AND REFERENCES 



CNRUTL 



W77D 



96-05 

84-29 

42-12 

11-18 

150-26 

75-13 

6-08 

177-01 

77-09 

6-43 

74-48 

185-12 

233-31 

144-46 

247-24 

248-10 

247-06 

247-31 



248-37 
248-30 
247-27 
214-29 
114-30 
91-26 



95-40, 97-33, 98-05, 98 

82-06, 84-23, 84-38 

41-44 
H=1 S=0 N=0 CL=1 127 
150-22,150-23 

77-47 

251-12 

5-01 

77-02 
204-37 

73-21, 75-15, 75-40, 75 
185-08 
234-12 
137-45 

206-39,218-19,222-14,222 
247-26,247-30 
248-26 

167-20,167-31,169-11,172 
186-38,187-18,187-25, 19V 
223-49,224-07,224-14,225 
167-05,191-30,204-16,211- 
172-09,177-33,181-25 
174-29,175-48,193-36,194' 
214-01 

91-27,104-48,105-42,108- 

80-38, 81-42 
LIBNUM=5 



-27, 98-43, 99-35,100-49,101-15,101-29,101-32,101-41 
•23,134-29,150-15 

46, 87-42, 89-29 



■29,245-23 

25,177-45,178-43,179-05,183-47,184-18,184-25,184-37,184-48,186-31, 

^'l?S"95'^" 3S ' 192 -* 2 ' 212 - 20 ' Z13 - 05 ' 217 -°*' 2 1 7 -25/220-39;220-46; 

39,229-18,229-40,230-26,231-07,231-47,232-12 

44,216-07,220-21 

14,195-18,197-23 

38,109-14,111-08,112-24,114-07 



9-06 
18-06 

6-26 

9-07 

18-07 

251-01 

7-20 
250-40 
250-15 
250-08 



LIBNUM=5 
135-10 
W=1 S=3 
111-27 
135-21 
H=1 S=4 

5-02 
121-16 

5-03 

5-04 

5-05 
LIBNUM=5 
LIBNUM=13 
216-22,216-35 
LIBNUM=13 
LI3NUM=13 
LIBNUM=13 
LIBNUM=13 
LIBNUM=13 
LIBNUM=13 
LIBNUM=13 
LIBNUM*13 



132-37 
132-38 



N=0 CL=1 135-16,137-33 

N=0 CL=1 135-27,142-15,143-27 



132-39 
58-38, 66- 

58-35, 66- 
66-37,104- 
80-35, 82- 
58-36, 66- 
58-36, 80- 
82-05,167- 
80-34 
220-35 



38, 80-35, 82-05,104-46,167-17,172-22,177-42,183-44,191-43,212-17, 

36, 82-03,167-15,172-20,177-40,183-41,191-41,212-14 
43,216-19,216-33 
04,167-16,172-21,177-41,191-42,220-33,220-34 

37, 80-32, 80-33,183-42,212-15,220-34 
32,183-42,212-15 
17,172-22,177-42,191-43,220-33 
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A04 



PATCH HISTORY 
VALUE T NAME 



0:32:20 



2/06/81 **** 



DEF/REF ATTRIBUTES AND REFERENCES 



CNRUTL 



W77D 



0000314 
0000115 
0000116 
0000317 
0000120 
0000322 
00001 23 
0000324 
0000125 
0000262 

01 0015622 

01 0015456 
0000007 

01 0016631 
CTSD 

01 0012210 
•TUUTCTL+8' 



ASC L 
ASC M 
ASC N 
ASC~0 
ASC> 
ASC R 
ASC S 
ASC T 
ASC U 
ASC 2 
ATCPY 
AUOITAPE 
AUOITFN 
AUDITMON 
AUMASCTL 
AUTOVEROH 
AUX1 



•TUUTCTL+9' T AUX2 

CTVTAB V BXCDXBIN 



14 P 



TTYTBL 

TTYTBL 

0000010 

0121424 

. 0121447 

0112104 



0000015 

csrsuB 

CBIM 
01 0016620 
CSYSUB 
•TUUTCTL+1 ' 



0000000 A BLKADR 



CTAPH 
MASACS 
01 0016723 
HASACS 
•I OBUF+I OB 
UFD+2+flTLODO 
FS' 
01 0010006 



BLKCHGD 

BLKDATA 

BLKMAX 

BLKPOSRST 

BLKSIZE 



BOOTLOADADR 
BPAXORG 



42-26 
37-01 
29-30 
74-01 



LIBNUM*13 
LIBNUM=13 
LIBNUM=13 
LIBNUM=13 
LIBNUM=13 
LIBNUM=13 
LIBNUM=13 
LI8NUM=13 
LIBNUM=13 
LIBNUM=13 

39-14 
5-06 

37-23,121 

29-31 



66-36 
58-37 
58-38 
58-37 
58-35 
80-34 
81-27 
81-26 
220-36 
216-35 



66-38, 81-28 
,183-43,212-16,220-36 
, 80-33, 81-27, 81-28,183-44,212-17 

,104-43,104-44,183-43,212-16,216-19,216-20,216-33,216-34 
, 82-03,104-46,167-15,172-20,177-40,183-41,191-41,212-14,216-22 

'104-45,216-21,220-35 
82-04,104-44,104-45,167-16,172-21,177-41,191-42,216-20,216-21,216-34 



-35 



8XCDXBINX XC 

SYSUB 

BXLK 

BXOOT 

BACKSP 

BACKX 

BACK1 

BAKGO 

BBX 

BCD HI 

BCDXBIN 

BGNPSAU 

BGNWRIT 

BINXBCD 

BKNO 



7-30 106-38 
180-49 246-32 

W=20 S=0 
106-17,107- 
W=20 S-0 

71-30, 94- 
LIBNUM=15 
244-23,244- 



33-10, 47-18, 56-21, 59-04, 61-37, 62-08, 62-12, 70-19, 71-14, 



N=10 CL=2 

30,107-35 

N=11 CL=2 40-22, 42-47, 47-19, 53-31, 54-27, 54-36, 60-07, 70-24, 71-21, 

47, 94-49, 98-44, 99-36,102-17,106-21,107-11,107-16 

33-17, 36-10, 38-28, 38-34, 48-34,117-28,117-38,117-45,159-13,209-22,210-09, 
27,244-33 



32-36 
46-28 

107-40 

108-12 

63-03 



6-44 

6-09 

73-12 

6-45 



16-12 
7-21 
8-16 

75-32 
8-15 



LI9NUM=15 

32-36, 53-24, 76-35 

46-28,209-10 
LIBNUM=1 3 1 69-09,1 78-41 ,1 84-1 6,1 86-29,1 87-1 6,1 92-33,223-47,230-24 
106-16 
107-41,111-43 

62-38, 62-42, 62-46, 63-01 
1-08 
LIBNUM=10 240-05 



73-06 
34-25 

M=20 
77-12 

W=13 
77-35 

W=1 S 

197-36 
40-37 
76-01 
53-47 



94-36 

35-13, 53-11, 59-36,241-48,242-04 

S=0 N=1 CL*2 37-22, 52-27, 53-07, 58-26, 60-34, 74-39, 75-33, 76-36, 77-04, 

77-14, 77-24, 77-33,118-05 

S=0 N=0 CL=3 LIBNUM=13 34-29, 39-44, 40-04, 59-21, 64-13, 64-24, 77-15, 77-22, 

, 89-47, 94-45,101-33,101-34,101-36,101-37,102-14,102-25,102-36 

=2 N=5 CL*1 181-22,184-12,184-42,185-14,186-25,187-12 

, 40-45, 42-44, 64-29, 77-16,117-40 

, 76-08, 76-26,235-43 



112-15 
24-22 24-26, 24-28, 24-30, 24-32, 24-34, 24-36 
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BO* 



PATCH HISTORr 


VALUE 


T 


NAME 


01 0015266 


L 


BPAXTUTL 


0000342 


A 


BRXF 


0000161 


A 


BRXT 


01 0011154 


L 


BRTBPH 


CIPL 


V 


BTLODOFS 


01 0010056 


L 


BUFPATCH 


01 0017605 


L 


BYBLK 





U 


C 


TTTTBL 


X 


CXMPR 


TTrTBL 


X 


CXNL 


TTYTBL 


X 


CXOMPL 


TTrTBL 


X 


CXOPY 


TTYTBL 


X 


CXURR 


01 0020445 


L 


CALBXB 


01 0014365 


L 


CALCHASHNR 


01 0014432 


L 


CALCHASHNRFA 
IL 


0000011 


A 


CARCNT 



0:32:20 2/06/81 **** 



DEF/REF 



ATTRIBUTES AND REFERENCES 



CNRUTL 



K77D 



'TUCOPYCTL+3 
i 

01 0017272 

COATH 
01 0017772 
01 0014433 
01 0020675 
01 0012202 
01 0017773 
0121127 

CBLM 
01 0014110 
01 0016145 
0000005 
01 0017716 
01 0017343 
0114452 

CSYSUB 

CSYSUB 

CTAPH 
'L1DATA' 
01 0015257 
01 0020163 
01 0013305 
01 0021113 

CUTIL 



CBKNO 

CCONT 

CDLB 

CHECKHALT1 

CHECKNUM 

CHECKTS 

CHGOWFAIL 

CHKHLTMERGE 

CHOOSE 

CK OST 

CKIOBPTR 

CLEAR 

CLOSE 

CLOSEBOOT 

CLOTPU 

CLR MNT 

CLR WRDS 

CLR~16 

CLRMAINT 

CLRTAB 

CLRX 

CMPCH 

CMPRAOR 

CMPRCOMPL 

CMPRDBF 



29-07 29-12, 29-15, 29-18, 29-21, 29-24, 29-27, 29-30, 29-33, 29-36, 29-39, 29-42 
LIBNUM=5 132-40 
LIBNUM=5 109-39 
154-06 152-44,226-02,226-46,228-32,229-48,230-37,232-18 
6-27 112-15 
27-03 83-22, 85-24, 85-34 
101-24 100-02,100-04 

142-07 142-07,145-24 
178-11 178-11 

28-28 28-28, 57-11, 91-14, 95-37,103-12,130-34,145-07,151-32,245-03,245-45 

95-35 95-35,103-10 
198-08 198-08 

34-23 34-09 
235-23 213-10,217-30 

238-18 237-18,237-22 

58-35 58-36, 58-37, 58-38, 58-39, 66-36, 66-37, 66-38, 66-39, 80-32, 80-33, 80-34, 80-35, 80-36, 

81-26, 81-27, 81-28, 81-29, 82-03, 82-04, 82-05, 82-06,104-43,104-44,104-45,104-46,104-47, 

167-15,167-16,167-17,167-18,172-20,172-21, 172-22,172-23,177-40,177-41 ,1 77-42'l 77-43 J 83-41 ' 

216-19,216-20,216-21,216-22,216-23,216-33,216-34,216-35,216-36,220-33,220-34,220-35,220-36' 



90-17 
6-35 
110-01 
239-43 
137-28 
179-14 
110-04 

84-44 

6-10 

227-03 

57-17 

105-13 
93-01 

113-21 
6-46 
6-47 
7-22 



40-20, 42-43, 93-20, 95-07, 95-10,102-42 



W=20 S=0 N*3 CL*2 

90-12 

24-35 
104-24 
159-05 
137-23 

178-05,178-19,178-36 
112-49 

84-37 

113-43,122-20,123-26,150-28 
225-42 

57-20 

LIBNUM=13 56-45, 90-10, 99-10,100-20,105-28,121-29,150-20,218-13,245-32 

104-1 1 

92-14, 92-19 
113-18 



113-23,123-03 



28-38 28-40 
119-24 120-13,120-23 
206-02 204-45 
145-05 137-44,144-41 
8-01 251-18 
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VALUE T NAME 



01 0020672 

0007323 

0000000 

0000006 

01 0020554 

01 0021116 

CSTSUB 

Or 0016655 

01 0012066 

01 0010000 

TTTTBL 

10 
01 0017547 
01 0016115 
01 0016120 
0000000 
01 0016376 



CMPRLOOP 

CMPRMAS 

CMPRPATCH 

CMPRPG 

CMPRPROG 

CMPRSTOP 

CMPR20 

CMPSTCK 

CNLOW 

CNRUTIL 

COMP 

COMP OP 

COMPADR 

COMPO 

C0MP01 

COMPROK 

CONHERE 



-a I 



z 
<e<hplx 
vSfgs 



SSL 



DEF/REF ATTRIBUTES AND REFERENCES 

137-25 145-03 

251-08 5-07 
147-03 

24-36 251-10 

1-35 24-37,140-19 

145-10 134-30,137-11,137-31,140-48,143-1? 

6-48 137-04,137-42,202-34,202-47,203-16,203-27,205-11,206-04 

74-26 74-08 

177-02 5-08 
1-31 

9-08 135-32 

18-08 W=1 S=5 N«0 CL*1 135-38,138-21,139-20 

99-30 97-14 

56-20 54-22 

56-24 60-16, 62-10, 69-08 

14-05 H=1 S=14 N=0 CL»3 LIBNUM-13 

64-30 64-28 



0:32:20 2/06/81 **** 
CNRUTL V77D 



78-11, 78-12,122-02 



«.«+(« 






!$*); 






— / 






,X_>? 






:#0'»" ab 






cdefghi „$<♦ 
•f iklmnopqr'' 

■ >*■— JtUVM 














xyz* t rC>» 01 * 

3456780t J - 1 J /I 










-Cabedefghi 
>jktmno 










pqr \ s 






tUVHX/Z 






0123456789 






T 


CONLC 


LIBNUM*15 


01 0016016 L 


CONOUT 


53-37 52-19, 58-20 
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PATCH HISTORY 




0:32:20 2/06/81 **** 


VALUE T NAME 


DEF/REF ATTRIBUTES AND REFERENCES 


CNRUTL W77D 


iX >k 






JoANa'd" at 






edefgM „S C+ 
•f jklmnopqr* 

■>»«--StUVM 














xyz* L iO«>~'"* 

3*S67i9fJ ^]il 










-<ABCDEFGHI 


_ ._. 




>JKLMN0 






PQR \ S 






TUVWXYZ 






0123456789 






' T CONSC 


LIBNUM«15 




01 0020226 L CONTABT 


121-26 121-21,121-22 




01 0011333 L CONTSRCH 


161-36 161-28 




01 0015372 L C0NVSE6 


33-01 32-28 




01 0017646 L COPFIN 


103-01 97-1? 




0000006 A COPY 


LIBNUM=13 101-08,224-12 




01 0017444 L COPYCMP 


95-26 95-02 


-.'' 


01 0015640 L COPYFILE 


44-01 5-09 





0000010 A COPYFILEFN 


29-33 45-15 




01 0017460 L COPYFILEMON 


97-01 29-34 




0000011 A COPYFN 


29-36 42-49,102-05 




01 0017577 L COPYMAC 


101-05 97-17 




01 0017317 t_ COPYMON 


92-01 29-37 




01 0017335 L COPYSZ 


92-29 92-06 




01 0015471 L COPYTAPE 


38-01 5-10 




TTYTBL V CORR 


9-09 77-01 




01 0016777 L CORRCHK 


76-49 76-32 




0111432 L CPATCH 


1-42 39-05, 41-23, 59-14, 60-26, 62-32,151-46,153-18,194-24 




0112562 L CPATCH1 


1-43 124-02 




0114107 L CPATCH2 


1-44 113-11,122-41 




0115073 L CPATCH3 


1-45 105-20,110-10 




0121236 L CPATCH7 


1-46 47-07, 68-02, 68-33, 78-18, 79-02, 82-46, 90-23, 99-02, 
168-13,247-37 


100-12,106-09,106-31,111-36,114-32, 


U CR 






0000063 A CRXF 


LIBNUM=5 132-41 




01 0017562 L CTAPEU 


100-06 93-04,102-43 




U CTAPH 






MASACS V CVTINOEX 


8-17 




DUD 






TTYTBL X DXMP 


53-22 53-22, 59-47, 61-27, 67-14,127-35,129-11,130-31 




01 0020647 L DEFAULTRAO 


136-45 136-40 




COMMON NONRESIDENT UTILITIES 


PR-1C954-50 


0:32:20 2/06/81 TRADE SECRET - SEE TRADE SECRET RESTRICTIVE NOTICE ON COVER SHEET 


CNRUTL ISSUE 05 PAGE 271 







E04 
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VALUE T NAME 


DEF/REF ATTRIBUTES AND REFERENCES CNRUTL W77D 


<.«+IS 






!$*); 






— / 






,X_>? 






:*Q'=" 






n«<* 






T, 




..... 










'■• 


-<ABCDEFGHI 






>JKLMNO 




' 


PQR \ S 






TUVWXYZ 






0123456789 


■ 




* T DELLC 


LIBNUM=15 




TTYTBL V DETL 


9-10 76-31 




0000246 A DIXF 


LIBNUM«5 


132-19 


01 0015417 L DIRDMP 


35-03 32-34 


. 


HASACS V DIRLOC 


8-18 35-11, 97 


-28 


01 0020157 L DIRSER 


119-19 98-42, 99 


-34 


MASACS V OIRTRK 


8-19 35-07, 97 


-27 


01 0017163 L DISECT 


87-08 80-11 


. 


0000245 A DKXF 


LIBNUM=5 


132-20 


OO'JOOOS A dlpg 


24-34 5-11,251 


-03 


0000002 A OMPOFN 


29-15 35-18 


■ 


01 0016241 L DMPDMON 


61-01 29-16 




0000001 A DMPFN 


29-12 32-41 


. 


0000003 A DMPLFN 


29-18 36-16 


r 


01 0016414 L DMPLMON 


66-01 29-19 




01 0015745 L DMPMON 


52-10 29-13 


• 


0007315 L DMPREGOF 


250-33 5-12 




0000004 A ONPSFN 


29-21 34-33, 56 


-05 


. 01 0016157 L DMPSMON 


58-01 29-22 


■ 


01 0015345 L OMPTAPE 


32-01 5-13 




0121520 L DO MORE 


83-05 83-02 




01 0017062 L PONPO 


78-01 77-20 


. 


01 0017223 L DOTHEM 


88-27 89-24 




01 0016563 L OUMPIT 


70-16 69-41 




01 0011161 L DUMUNLOD 


154-17 167-29,184- 


-46,192-03,213-03,217-23,220-44,225-37,229-16,229-38 


0001054 A EXND 


254-05 64-18 




TTYTBL X EXRASE 


47-21 47-21 


- 


TTYTBL X EXRR 


141-30 141-30,141- 


-48,163-11,187-47,193-20 


01 0021120 L ENDCHPR 


145-13 145-08 


» 


01 0022611 L ENTRDPRG 


1-34 24-31 




01 0013764 L ENTRYOONE 


222-21 221-38 




01 0012467 L EOBFNO 


186-16 185-09 




0000000 A EOF 


H=1 S=15 


N=0 CL«3 LIBNUM=13 60-15, 73-16, 77-19,213-16,217-36,233-32,233-33 


0000006 A EOH 


22-15 W=20 S=0 


N=6 CL=3 160-34,160-35,170-08,173-42,181-28,230-46 
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VALUE T NAME 



7777777 

'TUUTCTL+7' 

1 
CSYSUB 
CSYSUB 
01 0011123 
01 0014176 

TTYTBL 
TTYTBL 

1 
01 0014505 
01 0017251 
01 0011620 
01 0014561 
0121177 
01 0020102 
01 0015672 

TTYTBL 
TTYTBL 
01 0010042 
01 0011560 
01 0023051 
01 0020714 
01 0020201 
01 0022637 
01 0022660 
CIPL 
0000100 
HASACS 
MASACS 
HASACS 
0000065 
0000065 
LAYOUT 

17 
TTYTBL 
TTYTBL 
TTYTBL 
LAYOUT 



EOOWF 

EOS 

ERCT 

ESS2 

ESS2E 

EXCMCH 

EXC0FLP6 

EXCRTBPM 

EXTRA6LK 

F 

FXILE 

FXULL 

FIELD 

FIELDLP 

FINECH 

FMTOWBUFFER 

FRSTCHK 

FST_PASS 

FSTCHK 

FULONLY 
U 6 
X GXENERIC 

GXENID 

GENISS 

GENISSLP 

GETRG 

GOAHEAD 

GOBAK 

GTNXT16 

GTNXT20 

HASHLEN 

HASHLENHAX 

HASHSUMF 

HASHSUMN 

HASHSUHP 

HGXF 

HGXT 

HGAREA 

HLT 

IXN 

IXNIT 

IXSSID 

I OBUF 



F04 



OEF/REF ATTRIBUTES AND REFERENCES 

15-13 82-40,225-47,228-28,230-33,232-05 

W*20 S«0 N-7 CL-2 77-10, 78-07 



0:32:20 2/06/81 **** 



CNRUTL 



W77D 



1-10 
1-09 
6-49 
7-01 
152-32 
229-33 

67-17 

46-41 

1-09 

241-08 

89-42 
169-44 
243-19 

85-43 
116-18 

47-32 

48-44 

194-08 

25-36 

168-01 

133-01 

138-05 

119-48 

128-12 

128-29 

6-28 

15-21 

8-20 

8-21 

8-22 



109-13 
112-23 

229-27 

67-17,103-11 
46-41 

241-43 
80-13 
169-27 
156-12,157-12,158-55,166-25,171-26,177-17,180-44,191-11,201-27,209-03,219-42 

30-15, 31-16, 32-24, 37-16, 38-22, 44-17, 46-20 
47-16 

48-44,201-34,219-49 
194-08 



25-38,152-05,156-17,157-17,167-34,192-27,192-28 



CTAPH V I_OBUFD 
0000306 A IBXF 



8-10 

163-02 
192-19 
195-12 

8-11 



7-23 



TBLSIZ=10 

168-20 

129-44 

137-27 

120-21 

128-24 

128-45 

221-35 

205-09,221-41,221-43,237-10,237-12 

205-27 

222-10 

237-17 

LIBNUM=5 132-21,248-21 

LIBNUM=5 248-25 

248-22 

W=1 S=5 N=0 CL*1 LIBNUM=5 109-30,110-35 

163-02,164-21,174-17,175-22,175-40 

192-19 

195-12 

«"?o' It'll' 22"U' Sli?' SS-JJ' Si"2i' 67_38 ' 71 ~ 22 ' 73_15 ' 7 *-° 8 ' ™- 26 ' 82 - 1 «> «-27, 

83-19, 85-05, 87-23, 87-31, 87-37, 88-05, 89-45, 94-43,108-15,110-43,111-18,112-15,112-35^ 
119-23,167-35,178-06,192-16,193-16J93-4i;i94-30'213-15;217-35^221-07;225-44;228-25^28-35; 
229-28,230-30,231-15,232-04,233-25,233-32'235-43^236-01 ' 

82-16, 82-27, 83-19, 85-05,108-15,110-43,111-18,112-15,112-35,167-35,178-06,192-16,193-16, 
193-41, 194-30,221-07,225-44,228-25,228-35;229-28;230-30;231-15;232-04;233-25,236-01 ' 
LIBNUM S 5 132~22 
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VALUE T 


NAME 


DEF/REF ATTRIBUTES AND REFERENCES CNRUTL W77D 


01 0017712 L 


IDLESTATE 


105-01 104-08,104-10 


01 0016703 >L 


IDLSTATE 


75-06 57-32, 66-07, 66-09, 72-07, 73-07, 74-09, 74-11, 74-13, 74-15, 74-17, 74-19, 74-21, 80-08, 
80-10, 96-04,105-03 


01 0016153 L 


IDLSTATE 


57-31 52-17, 58-16, 58-18, 61-07 


01 0017454 I 


IDLSTATE„ 


•ILLEGAL CON 






DITIONAL IN 






THE IF MACRO'T 


IFERR0R1 


... 


'DATA > OR 




:•'..• 


DATA < IS 




. 


MEANINGLESS 




. 


, USE DATA " 




. • - 


= 0' T 


IFERR0R2 




•TWO CONSTAN 






TS ARE BEING 






COMPARED IN 






IF MACRO' T 


IFERR0R3 




•AN ITEM WAS 




- 


COMPARED TO 




SOMETHING 




, 


THER THAN A 






CONSTANT' T 


IFERR0R4 


■ 


•DESTINATION 




■ 


OF AN ■ STA 




• 


TEMENT IS A 






CONSTANT' T 


IFERR0R5 




'ATTEMPTING 




■ 


TO SET ITEM 




■ 


■ TO SOMETHI 






NG OTHER THA 




, 


N A CONSTANT 'T 


IFERR0R6 


■ • . ■' 


'ITEM MAY ON 






LY USE THE ■ 






AND -= COND 




. 


ITIONALS' T 


IFERR0R7 


. 


01 0014744 L 


IFST1 


226-23 


01 0017222 L 


IFS103? 


88-26 88-24 


01 0017312 L 


IFS1081 


91-21 91-19 


0121421 L 


IFS1236 


107-34 106-20 


0121406 L 


IFS1238 


107-15 106-24 


01 0020020 L 


IFS1305 


111-28 111-26 


01 0020252 L 


IFS1388 


122-09 121-37 


01 0020266 L 


IFS1394 


122-26 122-15 


01 0020266 L 


IFS1398 


122-24 122-22 


01 0020310 L 


IFS1401 


123-42 122-32 


01 0020310 L 


IFS1419 


123-33 123-33 


01 0022624 L 


IFS1455 


127-44 127-24 


01 0022716 L 


IFS1477 


129-23 128-03 


01 0020614 L 


IFS1588 


136-05 136-03 
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PATCH HISTORY 






0:32:20 2/06/81 **** 


VALUE 


T 


NAME 


OEF/REF 


ATTRIBUTES AND REFERENCES 


CNRUTL W77D 


01 0020625 


L 


IFS1591 


136-19 


136-10 




01 0020625 


L 


IFS1593 


136-17 


136-13 




01 0020635 


L 


IFS1597 


136-31 


136-22 




01 0020635 


L 


IFS1599 


136-29 


136-25 




01 0020653 


L 


IFS1607 


136-49 


136-44 




01 0020671 


L 


IFS1617 


137-22 


137-20 




01- 002071* 


L 


IFS1622 


137-49 


137-34 




01 0020714 


L 


IFS1626 


137-47 


137-39 




01 0020746 


L 


IFS1633 


139-02 


138-09 




01 0020733 


L 


IFS1638 


138-30 


138-19 




01 0020733 


L 


IFS1640 


138-28 


138-22 




01 0020741 


L 


IFS1647 


138-40 


138-34 




01 0020746 


L 


IFS1654 


138-49 


138-47 




01 0020776 


L 


IFS1657 


140-01 


139-08 




01 002C763 


L 


IFS1662 


139-29 


139-18 




01 0020763 


L 


IFS1664 


139-27 


139-21 




01 0020771 


L 


IFS1671 


139-39 


139-33 




01 0020776 


L 


IFS1678 


139-48 


139-46 




01 0021102 


L 


IFS1688 


144-31 


140-38 




01 0021031 


L 


IFS1699 


141-31 


141-29 




01 0021040 


L 


IFS1707 


141-49 


141-47 




01 0021063 


L 


IFS1721 


143-26 


142-17 




01 0021054 


L 


IFS1722 


142-45 


142-20 




01 0021062 


L 


IFS1732 


143-18 


142-48 




01 0021101 


L 


IFS1743 


144-28 


143-29 




01 0021073 


L 


IFS1744 


144-06 


143-32 




01 0021101 


L 


IFS1754 


144-26 


144-09 




01 0021106 


L 


IFS1764 


144-43 


144-38 




01 0021112 


L 


IFS1769 


145-03 


145-01 




01 0021135 


L 


IFS1791 


146-22 


146-20 




01 0011102 


L 


IFS1813 


151-18 


150-16 




01 0011067 


L 


IFS1820 


150-45 


150-32 




01 0011123 


L 


IFS1848 


152-25 


151-21 




01 0011142 


L 


IFS1879 


153-01 


152-38 




01 0011154 


L 


IFS1887 


154-02 


153-07 




01 0011166 


L 


IFS1917 


156-16 


156-14 




01 0011200 


L 


IFS1927 


157-16 


157-14 




01 0011212 


L 


IFS1938 


159-03 


159-01 




01 0011235 


L 


IFS1947 


159-32 


159-27 




01 0011265 


L 


IFS1951 


160-15 


159-47 




01 0011264 


L 


IFS1955 


160-11 


160-07 




01 0011272 


L 


IFS1960 


160-22 


160-20 




01 0011323 


L 


IFS1965 


161-25 


161-23 




01 0011341 


L 


IFS1969 


161-47 


161-31 




01 0011341 


L 


IFS1971 


161-45 


161-35 




01 0011356 


L 


IFS1987 


162-22 


162-10 




01 0011356 


L 


IFS1989 


162-20 


162-14 


; 


01 0011410 


L 


IFS2002 


163-15 


162-35 




01 0011424 


L 


IFS2022 


163-38 


163-36 
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VALUE T NAME 



01 0011433 
01 0011433 
01 0011451 
01 0011457 
01 0011474 
01 0011507 
01 0011515 
01 0011522 
01 0011572 
0121536 
01 0011663 
01 0011671 
01 0011676 
01 0011737 
01 0011755 
01 0012027 
01 0012044 
01 0012072 
01 0012100 
01 0012142 
01 0012153 
01 0012164 
01 0012210 
01 0012216 
01 0012223 
01 0012330 
01 0012273 
01 0012303 
01 0012322 
01 0012411 
01 0012360 
01 0012376 
01 0012376 
01 0013417 
01 0012440 
01 0013424 
01 0012445 
01 0012462 
01 0012505 
01 0012505 
01 0012524 
01 0012524 
01 0012550 
01 0012562 
01 0012663 
01 0012645 
01 0012671 
01 0012675 
01 0012703 



IFS2023 

IFS2025 

IFS2034 

IFS2052 

IFS2060 

IFS2071 

IFS2076 

IFS2081 

IFS208? 

IFS2105 

IFS2128 

IFS2133 

IFS2138 

IFS2143 

IFS2161 

IFS2181 

IFS2210 

IFS2231 

IFS2236 

IFS2245 

IFS2250 

IFS2253 

IFS2268 

IFS2273 

IFS2278 

IFS2301 

IFS2303 

IFS2310 

IFS2318 

IFS2328 

IFS2330 

IFS2338 

IFS2341 

IFS2356 

IFS2362 

IFS2365 TC 

IFS2369" 

IFS2375 

IFS2385 

IFS2388 

IFS2402 

IFS2405 

IFS2420 

IFS2445 

IFS2461 

IFS2466 

IFS2476 

IFS2481 

IFS2487 



DEF/REF 

164-03 
164-01 
164-29 
164-39 
165-08 
166-29 
166-38 
166-46 
169-15 
168-39 
171-34 
171-43 
172-02 
173-35 
174-03 
175-29 
176-05 
177-21 
177-29 
178-16 
178-26 
178-38 
180-48 
181-09 
181-17 
183-18 
182-29 
182-41 
183-11 
185-02 
184-03 
184-31 
184-29 
210-49 
185-32 
211-20 
185-41 
186-10 
186-44 
186-42 
187-31 
187-29 
188-26 
191-15 
192-47 
192-25 
193-10 
193-15 
193-21 
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163-40 
163-43 
164-12 
164-37 
165-02 
166-27 
166-34 
166-42 
167-25 
168-34 
171-32 
171-39 
171-47 
172-14 
174-01 
175-11 
176-03 
177-19 
177-27 
178-14 
178-24 
178-34 
180-46 
181-05 
181-13 
182-15 
182-25 
182-34 
182-46 
183-27 
183-35 
184-10 
184-13 
210-47 
185-28 
211-18 
185-37 
185-46 
186-23 
186-26 
187-10 
187-13 
188-02 
191-13 
192-12 
192-23 
193-08 
193-13 
193-19 
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PATCH HISTORT 
VALUE T NAME 



01 0012774 
01 0013054 
01 0013054 
01 0013043 
01 0013106 
01 0013113 
01 0013120 
01 0013125 
01 0013132 
01 0013150 
01 0013154 
01 0013200 
01 0013164 
01 0013200 
01 0013200 
01 0013212 
01 0013226 
01 0013261 
01 0013261 
01 0013267 
01 0013276 
01 0013353 
01 0013362 
01 0015034 
01 0013377 
01 0013402 
01 0013407 
01 0013417 
01 0013432 
01 0013436 
01 0013467 
01 0013531 
01 0013521 
01 0013565 
01 0013600 
01 0013650 
01 0013655 
01 0013662 
01 0013722 
01 0013742 
01 0013751 
01 0013763 
01 0013770 
01 0014015 
01 0014015 
01 0014004 
01 0014022 
01 0014071 
01 0014744 



IFS2532 

IFS2537 

IFS2543 

IFS2549 

IFS2586 

IFS2591 

IFS2604 

IFS2609 

IFS2614 

IFS2617 

IFS2621 

IFS2626 

IFS2630 

IFS2633 

IFS2637 

IFS2643 

IFS2646 

IFS2660 

IFS2664 

IFS2675 

IFS2676 

IFS2702 

IFS2710 

IFS2717 

IFS2726 

IFS2729 

IFS2731 

IFS2732 

IFS2743 

IFS2745 

IFS2757 

IFS2773 

IFS2776 

IFS2795 

IFS2800 

IFS2836 

IFS2841 

IFS2846 

IFS2861 

IFS2867 

IFS2870 

IFS2871 

IFS2875 

IFS2885 

IFS2886 

IFS2888 

IFS2895 

IFS2918 

IFS2925 



DEF/REF 

195-46 

197-29 

197-27 

197-06 

199-14 

199-22 

201-31 

201-40 

201-48 

202-18 

202-26 

203-07 

202-38 

203-05 

203-03 

203-21 

203-45 

205-08 

205-06 

205-15 

205-24 

209-07 

209-17 

209-43 

210-19 

210-29 

210-34 

211-07 

211-32 

211-41 

212-39 

214-27 

214-08 

216-25 

216-38 

219-46 

220-06 

220-14 

221-21 

221-44 

222-04 

222-18 

222-33 

223-29 

223-27 

223-11 

223-36 

226-03 

226-22 
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CNRUTL W770 



195-35 

196-04 

196-10 

197-04 

199-12 

199-20 

201-29 

201-36 

201-44 

202-16 

202-22 

202-29 

202-36 

202-41 

203-01 

203-19 

203-24 

204-28 

204-33 

205-13 

205-22 

209-05 

209-15 

209-39 

210-17 

210-27 

210-32 

210-37 

211-30 

211-39 

212-37 

213-35 

213-38 

216-14 

216-28 

219-44 

220-02 

220-10 

221-15 

221-42 

222-02 

222-06 

222-26 

222-48 

223-02 

223-09 

223-34 

225-48 

226-18 
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PATCH HISTORY 


- 




VALUE 


T NAME 


DEF/REF 


ATTR 


01 001*107 


L IFS2933 


226-49 


226-39 


01 001*107 


L IFS2935 


226-47 


226-43 


01 001*132 


L IFS2952 


228-33 


228-29 


01 00141*7 


L IFS2961 


228-47 


228-45 


01 001*165 


L IFS2989 


229-23 


229-11 


01 001420* 


L IFS3003 


229-44 


229-32 


01 0014227 


L IFS3019 


230-38 


230-34 


01 0014250 


L IFS3028 


231-11 


230-47 


01 0014265 


L IFS3041 


231-25 


231-23 


01 0014305 


L IFS3069 


232-03 


231-39 


01 0014342 


L IFS3090 


233-41 


233-30 


01 0014341 


L IFS3092 


233-37 


233-35 


01 0014356 


L IFS3096 


234-08 


234-06 


01 0014405 


L IFS3123 


236-45 


236-30 


01 0014414 


L IFS3133 


237-13 


237-11 


01 0015016 


L IFS3142 


237-39 


237-37 


01 0015021 


L IFS3143 


237-43 


237-41 


01 0014440 


L IFS3161 


240-08 


240-06 


01 0014447 


L IFS3165 


240-17 


240-15 


01 0014456 


L IFS3169 


240-26 


240-24 


01 0014567 


L IFS3189 


243-26 


243-24 


01 0014575 


L IFS3192 


243-33 


243-31 


01 0014663 


L IFS3227 


247-04 


245-43 


01 0014663 


L IFS3232 


247-02 


245-47 


01 0014657 


L IFS3238 


246-10 


246-08 


01 0014722 


L IFS3278 


248-36 


248-34 


0007313 


L IFS3291 


250-26 


250-18 


0007313 


L IFS3293 


250-24 


250-22 


0007331 


L IFS3317 


251-17 


251-15 


0007340 


L IFS3321 


251-26 


251-24 


0007352 


L IFS3331 


251-41 


251-39 


01 0015722 


L IFS494 


50-11 


49-44 


01 0015676 


L IFS573 


47-44 


46-34 


01 0015733 


L IFS601 


50-25 


48-09 


01 0015730 


L IFS640 


50-19 


50-17 


0120772 


L IFS712 


81-43 


81-08 


01 0016113 


L IFS718 


56-08 


56-06 


01 0017146 


L IFS988 


80-40 


80-26 


0000207 


A IMXF 




LIBNUM= 


01 0016520 


L INCR 


69-27 


69-13, 


1 


R INDEX 


15-01 


128-11, 


0000050 A 


23-31 


24-40, 








148-01, 








207-03, 


'NONRESIDENT 








UTILITY PRO 






, 


GRAM MONITOR 


T INDEXTITLE1 






•OFF-LINE RE 








6ISTER DUMP 









0:32:20 



2/06/81 **** 



ATTRIBUTES AND REFERENCES 



CNRUTL 



W77D 



. 



5 132-23 

69-15, 69-17, 69-19, 69-21, 69-23, 69-25 
128-13,128-23,128-24,128-28,128-30,128-40,128-45 

27-06, 28-01, 29-44, 51-15,115-10,120-24,125-03,126-05,133-13,134-01,146-40,147-05, 
149-29,155-45,156-23,157-23,165-17,170-26,176-31,179-16,189-03,198-19,199-25^200-15^ 
218-31,224-22,227-11,229-49,232-19,234-18,238-26,242-32,244-39,248-45,249-05,252-02 



COMMON NONRESIDENT UTILITIES 

0:32:20 2/06/81 TRADE SECRET - SEE TRADE SECRET RESTRICTIVE NOTICE ON COVER SHEET CNRUTL 



PR-1C954-50 
ISSUE 05 PAGE 



278 
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PATCH HISTORY 
VALUE T NAHE 



DEF/REF ATTRIBUTES AND REFERENCES 



0:32:20 2/06/81 **** 
CNRUTL W77D 



MULTISCAN FU 
NCTION' ' 
'COMPARE MAI 
N STORE MULT 
ISCAN FUNCTI 
ON" 

•MAIN FUNCTI 
ON' T 

'PATCH AREA' T 
•OVERWRITE M 
ULTISCAN FUN 
CTION' T 
'TTY CATALOG 

TABLE' T 
•ADMINISTRAT 
IVE CONTROL' T 
•INPUT 6ENER 
IC IPENTIFIE 
R' T 

'INPUT ISSUE 

IDENTIFIER' T 
'INPUT OVERW 
RITE DATA' T 
'NONRESIDENT 

UTILITY TEM 
PORARY STORE 

DEFINITION' T 
•INPUT OVERW 
RITE' T 
'OUTPUT OVER 
WRITE BUFFER 'T 
'CHANGE OVER 
WRITE STATUS *T 
'LOAD OR VER 
IFY OVERWRIT 
E' 
•INITIALIZE, 

UPDATE, OR 
OUTPUT THE 
VERWRITE FIL 
E' 

'STOP THE OV 
ERWRITE FUNC 
TION' 

'HASHSUM FUN 
CTION DESCRI 
PTION' 

•RESIDENT GE 
NERIC AND TR 



T INDEXTITLE10 



T IN0EXTITLE11 



INDEXTITLE12 
INDEXTITLE13 



INDEXTITLE14 
INDEXTITLE15 
INDEXTITLE16 

INDEXTITLE17 
INDEXTITLE18 
INDEXTITLE1? 

INDEXTITLE2 
INDEXTITLE20 
INDEXTITLE21 
INDEXTITLE22 

T INDEXTITLE23 

T INDEXTITLE24 
T INDEXTITLE25 
T INDEXTITLE26 
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PATCH HISTORY 
VALUE T NAME 



0:32:20 2/06/81 **** 



DEF/REF 



ATTRIBUTES AND REFERENCES 



CNRUTL 



W77D 



ANSLATION DA 
TA HASHSUMS' 
•NONRESIDENT 
GENERIC AND 
BOOTSTRAP H 
ASHSUMS' T 
'UPDATE AND 
VERIFY HASHS 
UM FUNCTIONS 'T 
•TAPE UTILIT 

Y MULTISCAN 
FUNCTION' T 
•SEARCH OVER 
WRITE FILE-- 
OH PROCEDURE'T 
•READ ONE RE 
CORD FROM TH 
E OVERWRITE 
FILE--OW PRO 
CEDURE* 
'APPEND RECO 
RD TO END OF 

OVERWRITE F 
ILE--OW PROC 
EDURE' 
•SEARCH TAPE 

BUFFER FOR 
A PARTICULAR 

ADDRESS— SU 
BROUTINE' 
'CALCULATE H 
ASHSUM OVER 
NONRESIDENT 
PROGRAM DATA'T 
'CHECK NUMBE 
R ALGORITHM- 
-SUBROUTINE' T 
'MISCELLANEO 
US SUBROUTIN 
ES' T 
•SAVE AND EX 
ECUTE PROGRE 
SS MARKS' T 
•OVERWRITE P 
ROGRAM PATCH 

AREA' T 
'RESIDENT TT 

Y REQUEST RO 
UTINES' T 



T INDEXTITLE27 

T INDEXTITLE28 
INDEXTITLE29 
INDEXTITLE3 
INDEXTITLE30 

T INDEXTITLE31 

T INDEXTITLE32 

T INDEXTITLE33 

INDEXTITLE3* 
INDEXTITLE35 
INDEXTITLE36 
INDEXTITLE37 
INDEXTITLE33 
INDEXTITLE39 
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PATCH HISTORY 
VALUE T NAME 



0:32:20 2/06/81 **** 



DEF/REF ATTRIBUTES AND REFERENCES 



CNRUTL 



W770 



•TAPE UTILIT 
Y ADMINISTRA 
TIVE CONTROL' T 



•TAPE UTILIT 
T TTY INPUT 
MESSAGE PROC 
ESSING ROUTI 
NES' 
•TAPE UTILIT 

Y MONITOR RO 
UTINES' 
•TAPE UTILIT 

Y SUBROUTINE 
S' 
•TAPE UTILIT 

Y ABORT FUNC 
TION' 
•TAPE UTILIT 

Y PATCH AREA'T 

0000005 A 
01 0011162 

CTAPH 

01 0011174 

CSYSUB 

CSYSUB 

01 0012556 

CTAPH 
01 0016602 
0011503 
0011523 
01 0011206 
01 0011374 
0011404 
0011605 
0011433 
0015316 
13 
3 



IN0EXTITLE4 
INDEXTITLE40 



T IN0EXTITLE5 



T INDEXTITLE6 



T IN0EXTITLE7 



T IN0EXTITLE8 



01 
01 



01 
01 
01 

01 



0001472 
0000213 
0121025 
0121527 

CTAPH 



TTYTBL 

TTYTBL 



INDEXTITLE? 

INFN 

INGENID 

INHERRCV 

INISSID 

INIT OCC 

INITOST 

INITOWFI 

INITTAPE 

INMON 

INOH 

INOWCONT 

INOWDATA 

INOWDATAERR 

INOWDATANG 

INOWFAIL 

INSERTDATA 

INTAPE 

IOBNDX 

IOBPTR 



IPL 

ISXF 

IS.EOOWF 

ISSLP 

JAMTU 

L 

LXABEL 

LXENGTH 



29-24 

156-01 

7-24 

157-01 

7-02 

7-03 

190-02 

7-25 

72-01 

166-01 

167-01 

158-01 

162-42 

163-09 

169-28 

164-04 

30-01 

27-01 

16-"6 



82-26 

168-29 

7-26 



30-20 

5-14 

28-32 

5-15 

123-20,128 

80-23,108 

5-16 

123-05 

29-25 

5-17 

166-36,166 

5-18 
163-13 
159-08 
108-06,168 
161-01,163 
5-19 
82-15, 82 
W=20 S=0 
227-09,228 
231-16,231 
LIBNUM=5 
LIBNUM=5 

82-21 
168-35 
93-27, 94' 



■47 
•14,109-05,113-39 



-44 



36,169-25 
24 

25, 82-28, 82-31, 83-21, 83-27, 83-39, 85-02, 85-06, 85-13 

N=1 CL-1 174-37,176-07,178-07,195-23,225-28,225-45,226-19,227-02,227-05, 

26,228-36,228-41,229-04,229-13,229-25;229-29^229-35;230-3i;230-42;230-49;231-0n 
19,231-31,231-37,231-41,232-06,233-24'233-26 ' ' 

109-40 

132-24 



23, 94-35 



32-30 32-30, 67-16 
197-40 197-40 
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A06 






PATCH HISTORT 






0:32:20 2/06/81 **** 


VALUE 


T 


NAME 


)EF/REF ATTRIBUTES AND REFERENCES 




CNRUTL W77D 


TTYTBL 


X 


LXOD 


91-12 91-12,182-31,184-07,185-34,186-20,187-07,245-41 






CTVTAB 


V 


LXPMRY 


LIBNUM=15 55-15, 55-38, 56-30, 63-1*, 6*-*0, 
19*-03, 195-07,197-12, 198-03 


130-08, 


130-25,131-03,175-17,175-35,176-21, 


14 


P 


LXPMRYXJtTTY 
APP 


LIBNUM=15 






01 0015*37 


L 


LABDMP 


36-01 32-31 






0121065 


L 


LARGER 


83-3* 83-32 






•TUCOprCTL+8 












i 


T 


LASBLK 


K=20 S=0 N«10 CL»2 *0-*7, *2-*5, 9*-**, 


98-45, 


99-41,102-15 


0000007 


A 


LASTBLK 


W=13 S«=0 N«7 CL=3 LIBNUM=13 89-*6 






01 0022757 


L 


LASTLNK 


130-19 129-49 






01211*7 


L 


LD OMAS 


85-20 84-46 






0121212 


L 


LD OS LP 


86-10 86-25 






0000115 


A 


LDMAR 


LIBNUM=*5 109-40 






0000231 


A 


LDMCHB 


LIBNUM=5 109-28,109-30 






0000035 


A 


LPMIRL 


LIBNUM=5 109-29,109-31,109-39 






01 0016*77 


L 


LDRGS 


69-09 69-38 






MASACS 


V 


LDWORD 


8-23 






'TUCOPYCTL+7 












i 


T 


LENGTH 


W=20 S=0 N=7 CL«=2 






'TUUTCTL+3' 


T 


LENO 


H=20 S=0 N«3 CL=2 47-33, 50-14, 70-18, 


71-13, 


74-38, 78-10, 80-24, 80-37, 80-41, 








81-30, 81-44, 82-07, 82-08, 82-38, 85-25, 85-35, 


87-21, 


91-17,106-15,111-24,113-17,121-38 


5 


R 


LENOB 


27-02 85-37, 85-38, 85-40, 85-45, 85-46, 86-25 






TTYAPP 


V 


LINKRDY 


8-44 53-41, 62-03, 63-47, 68-10,129-29,153-10 

W=20 S=0 N=0 CL=2 129-17,129-27,129-45 






'PAGSCR+O' 


T 


LINKWRD 






'TUUTCTL+4* 


T 


LNKS 


M=20 S=0 N=4 CL*2 53-28, 53-39, 55-07, 
63-45, 64-35, 67-21, 67-41, 70-43, 76-09, 76-27 


55-33, 


56-25, 60-04, 61-39, 62-01, 63-08, 


CUTIL 


V 


LOADOB 


8-02 146-35 






0121013 


L 


LOD CON 


82-12 84-47 






01 0015657 


L 


LODOMAS 


46-01 5-20 






01 001220* 


L 


LODOW 


180-01 5-21 






0000005 


A 


LOGBLK 


H=13 S«0 N«5 CL«3 LIBNUM*13 7S-.79, 77-26 






0000013 


A 


LOMASBTFN 


29-42 47-39,122-31 






01 0017656 


L 


LOMASBTMON 


104-01 29-43 






01 0017275 


L 


LOMASCOMPL 


91-01 81-45, 83-04,113-44,114-22 






0000012 


A 


LOMASFN 


29-39 50-20,122-14 






01 0017115 


L 


LOMASMON 


80-01 29-40 




, ■ 


•RO' 


T 


LONAM ABTB 








•R8' 


T 


LONAM~ALL OP 








•R8' 


T 


LONAM ALM OP 








•TUUTCTL' 


T 


LONAM AUXT 








'TUUTCTL' 


T 


L0NAM~AUX2 




._ 




•TUUTCTL' 


T 


LONAM BKNO 








•R2' 


T 


LONAM~BLKCHG 
D 

LONAM CBKNO 


• 






•tucopyctl' 


T 








•R8' 


T 


LONAM COMP 

P 

LONAM COMPRO 


■ - 






'TUSTAT' 


T 






■ 
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PATCH HISTORY 




VALUE 


T NAME DEF/REf 


ATTRIB 




K 


LIBNUM=13 


'OWBUF' 


T LONAM EOH 




' TUUTCTL' 


T LONAM ERCT 




•R2* 


T LONAM IOBPTR 




'TUCOPYCTL' 


T LONAM LASBLK 




•TUCOPYCTL' 


T LONAM LENGTH 




'TUUTCTL' 


T LONAM LENO 




'PAGSCR' 


T LONAM LINKWR 

D 
T LONAM LNKS 




•TUUTCTL* 




•TUCOPYCTL* 


T LONAM MBKNO 




•R2' 


T LONAM NEW OP 




'ORGBLK' 


T LONAM NEWOH 




•ORGBLK' 


T LONAM NEWDL 




•R2' 


T LONAM NOBGN 




•R2' 


T LONAM~NOLAST 




•ORGBLK* 


T LONAM OBLKAD 

R 
T LONAM OBLKLG 




•ORGBLK' 




•OKGBLK* 


T LONAM OBLKSE 

G 
T LONAM OFF CO 

N 
T LONAM OFL ER 

R 
T LONAM OFLUNO 




•R8' 




'R8' 




'R1* 




•ORGBLK* 


T LONAM OLDDH 




'ORGBLK' 


T LONAM OLDDL 




'R8' 


T LONAM ON CON 




•R8* 


T LONAM~ON~OFF 


, 


*R8* 


T LONAM ONL ER 

R 
T LONAM 0W8PTR 




'R2' 




•R2' 


T LONAM OWFILS 

W 
T LONAM OWNO 




'OWBUF' 




'R2' 


T LONAM OWNUM 




•OWBUF' 


T LONAM OWSTAT 




•OWBUF* 


T LONAM OWTLEN 




•OWBUF* 


T LONAM OWTYPE 




'RO* 


T LONAM PGDATA 




•TUSTAT* 


T LONAM POSOK 


LIBNUM-13 


*R2* 


T LONAM PROCPM 




•R2' 


T LONAM>ROCSC 

R 
T LONAM PTP 




•TUSTAT' 


LIBNUM-13 


'RO' 


T LONAM RCROLG 




'TUSTAT' 


T LONAM REDON 


LIBNUM=13 


'PAGSCR' 


T LONAM RGCOUN 





ATTRIBUTES AND REFERENCES 
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PATCH HISTORY 


0:32:20 2/06/81 **** 


VALUE 


T NAME DEF/REF ATTRIBUTES AND REFERENCES CNRUTL 


H77D 


'RZ' ' 


T 
T LONAM RTBPM 






'TUSTAT' 


T LONAM SEQERR 






'TUUTCTL' 


T LONAM SSNO 






'TUUTCTL' 


T LONAM SUBST 






'R2' 


T LONAM TAPEAC 

T 
T LONAM TPNO 






'TUUTCTL' 






'R2' 


T LONAM TRN^OP 






•TUSTAT* 


T LONAM~TSTATE 


LIBNUM-13 




'R2' 


T LONAM TTY OP 


■ ■ 




•R2' 


T LONAM TTYACT 






'R2' 


T LONAM TTYID1 






'R2' 


T LONAM TTYLIN 

K 
T LONAM TTYVER 

B 
T LONAM UCL OP 


■ 




•R2« 






'R2' 






•TUUTCTL' 


T LONAMJ/TCTL 




• '" — 


'R8' 


T LONAM WIDE 

P 
T LONAMJSTB 






•RO' 






TTTAPP 


V LPMRY 


55-15 55-38, 56-30, 63-14, 64-40, 70-48,130-08,130-25,131-03,175-17,175-35,176-21,194-03 
197-12,198-03 


,195-07, 


01 0016230 L 


60-13 56-23 




01 0017413 


L LSTCOPYCK 


94-40 92-20 




01 0012506 


L LVCOMPL 


187-01 182-04 




01 0012224 


L LVOWCONT 


181-21 181-07,181-15 




CSYSUB 


V L2 13 


7-06 134-33,152-35 




' CSTSUB 


V L2 5 


7-04 172-44 




CSYSUB 


V L2_7 


7-05 169-49 







U M 






TTYTBL 


X MXAS 


142-09 142-09,145-25 




TTYTBL 


X MXATCH 


78-27 78-27 




CTVTAB 


V MXOVST 


LIBNUM=15 164-48,192-30,229-08,231-35 




14 


P MXOVSTX XCSY 








SUB 


LIBNUM=15 




CTVTAB 


V MXSFABT 


LIBNUM=15 51-12,199-18 




14 


P MXSFABTX XCB 








LM 


LIBNUM=15 




MASACS 


V MASCIOSC 


8-30 107-49 




'TUCOPYCTL+1 








■ 


T MBKNO 


W=20 S=0 N=1 CL«2 39-48, 42-42, 92-35, 95-03, 95-06, 95-09, 97-29, 98-01, 


,102-31 


3 


R MCHB 


LIBNUM=5 110-34,128-22,128-39 




0000231 


A MCHBXF 


LIBNUM=5 109-29,109-31 




0000231 


A MCHBXT 


LIBNUM=5 132-03,132-04,132-05,132-06,132-07,132-08,132-09,132-10,132-11,132-12, 


.132-13, 






132-14,132-15,132-16,132-17,132-18,132-19,132-20,132-21,132-22,132-23,132-24,132-25 


,132-26, 


' 




132-27,132-28,132-29,132-30,132-31,132-32,132-33,132-34,132-37,132-38,132-39,132-40 
132-42,132-43,132-44 ' »«~-^, 


,132-41, 
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DO* 



PATCH HISTORY 

VALUE T NAHE 

R MCHTR 
TTYAPP V MFAD 



Ts*); 

:*0'«" ab 
edefghi n f<* 
T jklnnopqr" 

«>t"--JtUVH 



DEF/REF ATTRIBUTES AND REFERENCES 

LIBNUM=5 128-14,128-31 
8-45 



0:32:20 2/06/81 **** 
CNRUTL W770 



«yr* L r 

54547* 



-CABCDEFGHI 

>JKLMNO 
P«R \ S 

TUVWXYZ 
0123456789 



1 


T 


MICODETR 




LIBNUM=5 


01 0017747 


L 


MICROBOOTTBL 


109-20 


109-11,109-21 


01 0017770 


L 


MICROEND 


109-42 


109-21 


01 0017247 


L 


MORAGN 


89-36 


89-33 


01 0014405 


L 


HORENR 


237-01 


238-04 


01 0013730 


L 


HORERES 


221-34 


222-19 


01 0017213 


L 


H0R297 


88-15 


88-12 


0121073 


L 


MOV ST 


83-43 


83-41 


01 0017177 


L 


MOVEOVER 


88-01 


80-12 


CSYSUB 


V 


MOVST 


7-07 


83-49 


•3E790260' 


T 


MRNO 






0000215 


A 


MSXF 




LIBNUM=5 132-25 


0000215 


A 


MSXT 




LIBNUM=5 109-29 


CBLM 


V 


MSFABT 


6-12 




CTSD 


V 


MSFPROG 


7-31 


75-34, 93-22 


CBLM 


V 


MSFREQN 


6-13 


251-37 


0000311 


A 


MSTART 




LIBNUM=5 109-41 


0000321 


A 


MSTOP 




LIBNUM=5 109-27,128-05 


CTTYH 


V 


MTTYIDLE 


7-41 


141-01 


TTYTBL 


X 


NXEW 


181-03 


181-03,246-09 


7 


R 


NEW OP 


16-11 


W=1 S=1 N=5 CL*1 181-06 


0121143 


L 


NEWBLK 


85-12 


85-04 


01 0013552 


L 


NEWBOOTFILE 


216-11 


218-28 


'ORGBLK+4* 


T 


NEHDH 




W=10 S*10 N*4 CL*2 


•ORGBLK+3' 


T 


NEWDL 




W=20 S=0 N=3 CL*2 


01 0014373 


L 


NEWRECORD 


236-03 


238-10 



181-06,181-14,182-24,185-27,246-04 



86-15,175-04,175-05,182-21 
86-16,1 75-06,1 82-22,1 85-30 
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E06 


PATCH HISTORY 


0:32:20 2/06/81 **** 


VALUE 


T 


NAME 


DEF/REF ATTRIBUTES AND REFERENCES CNRUTL H77D 


01 0013237 


L 


NEMR10R11 


204-23 206-43 


01 0017523 


L 


NEXSTAT 


98-06 57-30, 98-26,101-14 


01 0016151 


L 


NEXSTAT 


57-29 52-32, 52-43, 58-45 


01 0013602 


L 


NEXTBLKBOOT 


217-19 217-37,217-40 


01 0013467 


L 


NEXTBLKNR 


212-45 213-21 


01 0013726 


L 


NEXTENTRYLP 


221-30 223-37 


01 0017263 


L 


NEXTFILE 


90-07 89-48, 90-16 


01 0013462 


L 


NEXTSEGNR 


212-28 214-34 


01 0020156 


L 


NGBACK 


118-08 117-26,117-32,117-36,117-42,117-47,118-02 


01 0020101 


L 


NOADVSUBST 


115-07 110-33,110-36,114-18 


7 


R 


NOBGN 


16-15 H=1 S=5 N=5 CL*1 202-06,202-28,203-22,204-27,206-46,209-37,210-30,213-36,214-39 


01 0015262 


L 


NOCLR 


29-02 28-35, 77-39 


01 0022740 


L 


NOFLOW 


129-42 129-40 


7 


R 


NOLAST 


16-16 W=1 S=6 N=5 CL-1 202-10,202-21,203-22,206-46,210-15,210-30,213-36,214-39 


01 0016674 


L 


NOOVERIDE 


74-42 92-37, 93-32 


0000360 


A 


NOPXF 


LIBNUM=5 132-30,132-31,132-32,132-33,132-34 


01 0014636 


L 


NOTTYACK 


245-21 206-47,214-45 


0112341 


L 


NOTZRO 


39-18 39-16 


01 0015253 


L 


N0T1ST 


28-33 28-17 


0007302 


L 


NRPRES 


1-37 


01 0010C00 


L 


NRUBGN 


24-15 5-22 


01 0010025 


L 


NRUTS 


1-32 


SEGOOO 


V 


NUM SEGS 


8-33 210-33,210-45,211-16 


0121435 


L 


NX ST 


108-01 108-08 


01 0017033 


L 


NXB 


77-25 77-17 


01 0017435 


L 


NXBLK 


95-08 94-46 


0121145 


L 


NXT OW 


85-15 85-10 


0121132 


L 


NXT OWNO 


85-01 84-04 


01 0020370 


L 


NXTIM 


71-12 71-40 


01 0016600 L 


NXTIM 


71-39 66-17 


0121163 


L 


NXTORGBLK 


85-32 86-09, 86-29 


01 0022772 


L 


NXT16 


130-43 129-47 





U 





. 


TTYTBL 


X 


OXFL 


127-37 127-37,129-13,130-33,135-04 


TTYTBL 


X 


OXLD 


181-11 181-11,246-06 


TTYTBL 


X 


OXMAS 


91-13 91-13 


TTYTBL 


X 


OXNL 


135-01 135-01 


TTYTBL 


X 


OXP 


192-09 192-09 


TTYTBL 


X 


OXU 


151-08 151-08,151-31,174-18,197-17 


TTYTBL 


X 


OXWDATA 


163-03 163-03,164-22,175-23,175-41 


'ORGBLK+1' 


T 


OBLKADR 


H=4 S=0 N=1 CL*2 86-05, 86-06,161-19,161-20,162-02,162-03,163-32,163-33,174-38,174-39, 
182-06,182-07 


'ORGBLK+0' 


T 


OBLKLG 


«=20 S=0 N=0 CL"2 163-44 


•ORGBLK+1 ' 


T 


OBLKSEG 


W=14 S=4 N=1 CL-2 86-07, 86-08,174-47,174-48,182-11,182-12,183-23,183-28,183-32, 
187-41,187-42 


HASACS 


V 


OBUFLEN 


8-24 83-26, 85-03,227-06,227-09,228-40,229-26,230-41,231-18,231-38 


01 0014533 


L 


OCTNEXT 


241-36 241-25,241-28,241-33 


01 0014507 


L 


OCTNOLP 


241-13 241-37 


01 0014525 


L 


OCTNZERO 


241-29 241-21 
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PATCH HISTORY 
VALUE T NAME 



0:32:20 



2/06/81 **** 



01 0014520 

10 

10 

CBLM 

'I OBUF+I OB 

UFD+2+0FLBT0 

FS' 

CIPL 
0000003 
•I OBUF+I OB 
UFD+2+SYSTM0 
FS' 

CTSD 

1 
BLMMA 
01 0015342 
01 0017105 
'ORGBLK+4' 
'ORGBLK+5' 
CBLM 

10 
10 
0016464 
10 
0017675 
01 0016426 
01 0017125 

CTAPH 

01 0017565 

01 0016166 

CTAPH 

0000006 
01 0013114 
01 0013133 
01 0013345 
01 0013347 
01 0013545 
01 0013543 
01 0013333 
01 0016613 

0120775 
01 0011657 
01 0012036 
01 0011735 
01 0012556 
01 0013055 



01 

01 



DEF/REF 



ATTRIBUTES AND REFERENCES 



CNRUTL 



H770 



01 0013076 L 



OCTZERO 
OFF CON 
OFL ERR 
OFL.STBY 



OFLBOOTTBL 

OFLBTOFS 

OFLREGDMP 



OFLSYSTIM 

OFLUCTL 

OFLUNO 

OFLUTIL 

OKGO 

OKINS 

OLDDH 

OLDDL 

OMASUPD 

ON CON 

ON~OFF 

ONCEAGN 

ONL ERR 

openboot 

0PENLF 

0PENL0K 

OPENM 

OPENMAST 

OPENPM 

OPENTCB 

OPFN 

OPHASH 

OPHASHCONT 

OPHASHFAIL 

OPHASHNR 

OPHASHNRBOOT 

OPHASHNRFAIL 

OPHASHRTB 

OPMON 

OPN PACH 

OPOW 

OPOWCONT 

OPOHFAIL 

OPOWFILE 

OPOWFILECOMP 

L 

OPOMFILEFAIL 



241-23 
18-05 W*1 S»2 N=0 CL«1 
18-10 W«1 S=7 N=0 CL=1 
6-14 250-20 



135-05,138-08 
138-06,139-16,139-25,139-47,140-05,141-45 



108-15,110-43,111-18 
6-29 108-15,110-43,111-18 
24-30 250-35 

112-35 
7-32 24-18, 51-06,116-20,121-31,151-14,199-10,243-22,251-42 

11-04 W=3 S=0 N=0 CL=1 24-19 
6-01 51-10,199-16,251-35 

31-26 31-23 

79-34 78-35 

W=10 S=0 N=4 CL=2 175-02,185-24 

W=20 S=0 N=5 CL=2 175-03,182-27,185-25 

6-15 150-36 

18-04 W=1 S=1 N=0 CL=1 135-02,139-07 

18-03 H=1 S=0 N=0 CL=1 134-46,134-48,136-39,140-27,140-28,140-29 

67-40 71-25 

18-09 W=1 S=6 N=0 CL=1 138-06,138-17,138-26,138-48,140-05 141-27 
104-33 104-07 

66-28 66-06 

80-17 80-07 
100-48 100-48 
100-40 97-15 

58-23 58-15 

52-29 52-29, 58-33, 66-34, 74-45, 80-30, 81-24, 82-01, 97-31, 98-03,104-41,167-13,172-18,177-38, 
183-39,191-39,212-12,216-17,216-31,220-31 ' ' 

29-27 31-27 
201-17 5-23 
202-03 201-38,201-46 
207-01 205-28 
208-38 5-24 
216-02 209-11 

215-01 212-18,213-11,216-23,216-36,217-31 
206-37 206-16 

73-01 29-28 

81-46 
171-05 5-25 
175-45 175-27 
173-32 173-23,173-27 
190-01 5-26 

197-34 195-28 
198-17 193-34 
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PATCH HISTORY 
VALUE T NAME 



DEF/REF ATTRIBUTES AND REFERENCES 



0:32:20 2/06/81 **** 
CNRUTL W77D 



01 0013074 
01 0011677 
01 0012045 
01 0011774 
01 0015327 



OPOWFILEPASS 198-12 192-45 

OPOWGOON 172-06 171-41,171-49 

OPOWTTYDEC 176-06 174-40 

OPOWTTYLP 174-42 176-07 

OPTAPE 31-01 5-27 






«.<(AON 






. 






X$*>; 












■*/ 












,X >? 












:*0'L" ab 






' 






cdefghl „«<♦ 
•f jklmnopqr" 

«>S"--StUVM 




































■ 


















-<IBCLEFGHI 












>JKLMNO 












PQR V S 












LLLWLYZ 












0123456789 
i 


T 


OPTR 








COUTH 


V 


ORDHSF 


6-40 


24-33 




0000004 


A 


ORDUTL 


24-32 


5-28,250-42 


0003050 A ORG 000023 


135-07 






0003054 


A 


ORG 000025 


135-18 






0003060 


A 


ORG 000027 


135-29 


. . 




0002434 


A 


ORG 000055 


111-42 






0003511 


A 


ORG~000061 


151-41 






0001670 


A 


ORG 000070 


79-08 






0002575 


A 


ORG 000076 


123-02 


.' 




0001553 


A 


ORG 000102 


68-08 






0003112 


A 


0RG~000105 


137-06 






0004715 


A 


ORG~000106 


194-30 






0001565 


A 


ORG~000107 


68-39 






0003543 


A 


ORG~000111 


153-13 






0001107 


A 


ORG 000114 


47-14 






0002307 


A 


ORG 000120 


105-26 






0002407 


A 


0RG~000126 


110-16 






0002322 


A 


0RG~000131 


106-15 






0002330 


A 


ORG 000141 


106-26 






0000661 


A 


0RG~000142 


33-07 






0000666 


A 


ORG"000145 


33-19 






0000676 


A 


0RG~000153 


34-04 







COMMON NONRESIDENT UTILITIES 
0:32:20 2/06/81 TRADE SECRET 



SEE TRADE SECRET RESTRICTIVE NOTICE ON COVER SHEET CNRUTL 



PR-1C954-50 
ISSUE 05 PAGE 



288 



• • 



A07 



PATCH HISTORT 
VALUE T NAME 



DEF/REF ATTRIBUTES AND REFERENCES 



0:32:20 2/06/81 **** 
CNRUTL W77D 






0002043 

0002167 

0003222 

0002502 

0000727 

0006303 

0003235 

0002210 

0003241 

0001763 

0003251 

0004067 

0003267 

0003301 

0003314 

0003327 

0000760 

0000764 

0000773 

0002457 

0002332 

0001002 

0001655 

0001372 

0003402 

0001020 

0003224 

0001027 

0003513 

0003545 

0001042 

0001047 

0001454 

0001066 

0001076 

0001105 

0001122 

0001132 

0001136 

0001143 

0001152 

0001161 

0004057 

0004065 

0001247 

0001257 

0004111 

0001263 

0001314 



ORG 

0R6 

0R6 

0R6 

0R6 

ORS 

0R6 

ORG 

ORG 

ORG 

ORG 

ORG 

ORG 

ORG 

ORG 

ORG 

ORG 

ORG 

ORG 

ORG 

ORG 

ORG 

ORG 

ORG 

ORG 

ORG 

ORG 

ORG' 

ORG 

ORG 

ORG 

ORG 

ORG 

ORG 

ORG' 

ORG 

ORG 

ORG 

ORG 

ORG 

ORG" 

ORG 

ORG 

ORG 

ORG 

ORG 

ORG 

ORG 

ORG 



.000217 


90-29 




000225 


99-08 




000232 


140-15 




000233 


114-38 




000236 


37-26 




000241 


247-43 




000246 


141-10 




000247 


100-18 




000251 


141-23 




000255 


83-02 




000260 


141-41 




000264 


168-20 




000270 


39-01 142- 


-11 


000300 


142-40 




000307 


60-32 143- 


-21 


000317 


40-01 144- 


-01 


000323 


40-12 




000327 


40-26 




000335 


40-40 




000337 


113-17 




000344 


106-38 




000350 


41-19 




000353 


78-24 




000356 


59-20 




000361 


146-24 




000363 


42-09 




000367 


140-25 




000372 


42-33 




000401 


152-04 




000410 


153-25 




000411 


44-20 




000420 


44-36 




000425 


62-38 




000431 


46-24 




000434 


46-36 




000436 


47-02 




000444 


47-46 




000447 


48-11 




000451 


48-23 




000457 


48-39 




000462 


49-03 




000465 


49-16 




000520 


167-37 




000525 


168-08 




000576 


54-01 




000612 


54-24 




000620 


171-02 




000621 


54-39 




000655 


56-01 
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PATCH HISTORY 
VALUE T NAME 



000*145 
0001004 
0000746 
0004165 
0001352 
0001356 
0001367 
0001417 
0001451 
0002622 
0001505 
0001517 
0001547 
0001551 
0001563 
0004565 
0004576 
0001653 
0001666 
0004713 
0001740 
0001752 
0002006 
0004760 
0001165 
0002010 
0001742 
0001754 
0002022 
0002041 
0001761 
0002073 
0001771 
0002077 
0002105 
0002112 
0005130 
0005135 
0002121 
0005153 
0005166 
0002146 
0002157 
0002165 
0002202 
0005231 
0002206 
0005244 
0002227 



ORG 
ORG 
ORG 
ORG 
ORG 
ORG 
ORG 
ORG 
ORG 
ORG 
ORG 
ORG 
ORG 
ORG 
ORG 
ORG 
ORG 
ORG 
ORG 
ORG 
ORG 
ORG 
ORG 
ORG 
ORG 
ORG 
ORG 
ORG 
ORG 
ORG 
ORG 
ORG 
ORG 
ORG 
ORG 
ORG 
ORG 
ORG 
ORG 
ORG 
ORG 
ORG 
ORG 
ORG 
ORG 
ORG 
ORG 
ORG 
ORG 



000660 

000671 
"000677 
"000716 
"000725 
"000736 
"000752 
'001004 
"001066 
"001116 
"001124 
"001171 
"001225 
"001233 
"001241 
"001504 
"001511 
'001646 
"001651 
"001676 
"001715 
"001727 
"001731 
"001743 
"001750 
"001760 
'001767 
"001774 
"001776 
"002040 
"002051 
"002072 
"002104 
"002111 
"002127 
'002142 
"002162 
"002167 
"002207 

002217 
"002244 
'002263 
'002300 

002312 
'002321 
"002327 
"002330 
"002335 
'002350 



DEF/REF 

172-29 

41-29 

39-11 

174-06 

58-06 

58-29 

59-08 

60-20 

62-23 

124-08 

61-15 

66-13 

67-29 

67-43 

68-29 

188-04 

188-28 

78-14 

78-43 

194-20 

80-43 

81-32 

87-05 

196-12 

49-28 

87-16 

81-08 

81-42 

88-37 

90-19 

82-42 

92-09 

84-08 

92-45 

93-29 

94-02 

203-29 

204-01 

95-12 

204-41 

205-30 

97-39 

98-23 

98-48 

99-38 

209-26 

100-08 

210-12 

101-11 



ATTRIBUTES ANO REFERENCES 



0:32:20 2/06/81 **** 
CNRUTL W77D 



49-29 
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PATCH HISTORY 
VALUE T NAME 



DEF/REF ATTRIBUTES AND REFERENCES 



0:32:20 2/06/81 **** 
CNRUTL W77D 



0005256 


A ORG 002353 


210-39 




0005263 


A ORG 002360 


211-11 




0002240 


A ORG~002375 


101-44 




0002250 


A ORG 002410 


102-33 




0005301 


A 0RG~002423 


212-25 




0005307 


A ORG 002430 


212-42 




0002276 


A ORG 002432 


104-13 




0005317 


A 0RG~002445 


213-18 




0005331 


A ORG 002461 


213-42 




0002305 


A 0RG~002464 


105-16 




0002320 


A ORG~002467 


106-05 




0005346 


A ORG~002476 


214-36 




0002366 


A ORG 002504 


108-48 




0002375 


A ORG 002515 


109-17 




0002401 


A ORG 002530 


109-36 




0005365 


A ORG~002541 


110-06 


216-40 


0002417 


A ORG 002551 


110-39 




0002425 


A ORG 002561 


111-13 




0002432 


A 0RG~002570 


111-32 




0002442 


A 0RG~002572 


112-10 




0005410 


A ORG 002577 


218-15 




0002447 


A 0RG~002600 


112-29 




0002455 


A ORG 002612 


113-07 




0002500 


A ORG 002645 


114-27 




0005450 


A 0RG~002652 


221-04 




0005476 


A ORG 002731 


222-35 




0002532 


A ORG 002740 


119-34 




0002537 


A ORG~002750 


120-04 




0005537 A ORG 003011 


225-25 




0002555 


A ORG 003015 


121-44 


, 


0005551 


A ORG 003032 


226-05 




0002573 


A 0RG~003041 


122-36 




0002611 


A 0RG~003053 


123-28 




0002620 


A ORG 003057 


123-47 




0002630 


A ORG 003062 


124-26 




0002024 


A 0RG~003071 


89-02 




0001600 


A ORG~003106 


70-33 




0001051 


A ORG 003161 


44-46 




0002242 


A 0RG~003174 


102-13 




0000670 


A ORG 003204 


33-30 




0000701 


A ORG~003212 


34-22 




0006037 


A ORG"003326 


235-20 




0006055 


A ORG 003337 


236-08 




0006067 


A ORG"003345 


236-38 




0006102 


A 0RG~003365 


237-24 




0006116 


A 0RGI003373 


238-15 




0006146 


A ORG 003516 


242-07 




0006221 


A 0RG~003601 


245-27 




0006241 


A 0RG"003612 


245-49 





COMMON NONRESIDENT UTILITIES 
0:32:20 2/06/81 TRADE SECRET 



SEE TRADE SECRET RESTRICTIVE NOTICE ON COVER SHEET CNRUTL 



PR-1C954-50 
ISSUE 05 PAGE 



291 






, 



D07 



PATCH HISTORY 
VALUE T NAME 



0006257 
000627* 
0006301 
0006150 
0006261 
0005553 
00041*7 
0005170 
0005367 
0006057 
0006104 
0006044 
0005233 
CDLM 
01 0020367 
0017731 
0017721 
01 0020013 
01 0017724 
16 
0000003 



01 
01 



ORG 003622 

ORG 003624 

ORG 003637 

ORG~003672 

ORG 003675 

ORG 003700 

ORG 003707 

ORG"003735 

ORG~003742 

ORG~003747 

0RG~003754 

ORG 003764 

ORG~003771 

OTSUPD 

OUTOUT 

OVERWRDEC 

0VERWRITE1 

0VERWRITE2 

OVERWRLP 

OVLOF 

OVWCLNT 



12 R OH LEN 

0000001 A OWACT 

6 R OHBNOX 

2 R OWBPTR 

01 0010052 L OWBUFFER 



01 0010025 

0000003 

0121020 

7 

0000000 

01 0011037 
0000001 
6 
0000000 
0000001 
0011037 
0000005 



01 



OWCTL 

OHDEAD 

OWF END 

OWFILSW 

OWINACT 

OWMSF 

OWNO 

OWNUM 

OHPATCH 

OHPG 

OHPROG 

OWSTAT 



0000000 A OWTLEN 
0000005 A OHTYPE 
TTYTBL X PXATCH 
CTVTAB V PXMRY 



DEF/REF 

246-19 
247-08 
247-33 
242-18 
246-31 
226-16 
172-41 
205-40 
217-02 
236-18 
237-35 
235-32 
209-37 
6-16 
71-09 
108-36 
106-01 
111-16 
108-29 



ATTRIBUTES AND REFERENCES 



0:32:20 2/06/81 **** 
CNRUTL H77D 



27-05 
15-15 
27-04 
16-04 

26-28 

25-08 
15-16 
82-18 
16-17 
15-14 

150-12 
22-04 
16-09 

249-03 

24-26 

1-36 

22-11 

22-03 
22-12 
49-34 



114-06,114 

71-07 
108-28 
104-22 
104-25 
108-37 
W=1 S=0 
LIBNUH=13 
184-23,184 
216-18,216 
231-05,231 

82-28, 82 
178-09,178 

83-18, 83 
W=20 S=0 
181-47,182 
TBLSIZ=765 
176-09,177 
TBLSIZ=14 
178-25,226 

86-34 
W=1 S=7 
170-09,178 

24-27 
W=20 S=0 
W=20 S=0 



•15 






N=0 CI 

150- 

-35,184- 

32,217- 

45,232- 

-29, 82- 

31 
-23, 83- 
N=0 CL 
02,185 
26- 
-30,179- 
25- 
-41 



1 LIBNUM«5 

20,152-41,167 

46,186-29,186 

23,218-13,220 

10,245-32 

40, 83-31, 83-33, 83-38, 84-03, 84-45 



109-28 
14,167-29,169-09,172-19,177-39,178-41,179-03,183-40,184-16, 
36,187-16,187-23,191-40,192-03,192-33,192-40,212-13,213-03, 
32,220-44,223-47,224-05,224-12,225-37,229-16,229-38,230-24, 



44, 85-23, 85-37, 85-42, 85-45, 85-49 

=1 173-42,174-37,174-44,176-05,176-08,176-12,181-28,181-37,181-45, 

17,228-24,228-38,229-06,230-29,231-14,231-33 

30,159-49,160-17,160-33,164-11,164-30,170-11,172-49,173-40,174-36,174-43, 

08,181-29,181-36,185-16,195-29,228-37,230-39,231-13 

10,151-35,152-33,243-27,247-11,248-38 



N=5 
-15 



CL»1 193-04,195-34,195-42,196-03 



N=1 CL=3 
N=4 CL«=1 



170- 
169- 



07,173-05,173-41,177-30,196-45,226-31,226-37 
16,170-07,177-30,178-01 



199-11,243-23,250-28 

172-34,205-34,209-31,216-44,226-10,235-26,236-12,237-29,242-12,246-24 

W=2 S=0 N=5 CL=3 170-09,173-04,173-43,173-44,178-08,178-09,178-15,178-17,178-25,178-27, 

178-30,178-31,179-09,196-46,196-47,226-40,226-41 

W=20 S=0 N=0 CL=3 170-08,176-09 

H=1 S=2 N=5 CL=3 160-01,160-08,160-18,170-09,173-48,178-31,196-08,197-02 

49-34 
LIBNUM=15 28-22, 53-18, 57-06, 59-43, 61-23, 67-10, 76-41, 79-14, 79-39, 91-08, 95-31, 
103-06,124-33,127-31,129-07,142-31,143-10,143-42,144-19,145-20,151-03,151-26,162-47,164-17, 
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JSZ 



PATCH HISTORY 


0:32:20 2/06/81 **** 


VALUE 


T NAME 


DEF/REF ATTRIBUTES AND REFERENCES CNRUTL W77D 






174-13,188-12,188-35,193-26,206-29,214-19,218-03,223-18,245-15 


14 


P PXMRYX xttya 






PP 


LIBNUM=15 


0000226 


A PAXF 


LIBNUM=5 132-42 


01 0014576 


L PACKDATE 


244-14 191-22,195-39 


CTSD 


V PAGSCR 


7-33 129-17,129-19,129-27,129-34,129-37,129-45,134-31,251-27 


CTTYH 


V PAPEROFF 


7-42 248-42 


CTTYH 


V PAPERON 


7-43 170-19 


01 0011272 


L PASSED CK 


160-25 160-03,160-09 


TTYTBL 


V PATCH 


9-11 


01 0016076 


L PAUSE 


55-29 54-35 


2 


R PGDATA 


19-06 W=20 S=0 N=2 CL=1 234-13 


01 0017734 


L PHASEONE 


108-42 104-23 


01 0020024 


L PHASETWO 


112-13 104-26 


CBLH 


V PKEYM 


6-17 106-39,106-39 


TTYAPP 


V PMRY 


28-22 53-18, 57-06, 59-43, 61-23, 67-10, 76-41, 79-14, 79-39, 91-08, 95-31,103-06,124-33,127-31, 
29-07,142-31, 143-10,143-42, 144-19,145-20,151-03,151-26,162-47,164-17,174-13,188-12,188-35^ 
193-26,206-29,214-19,218-03,223-18,245-15 


01 0016711 


L POSCOMPR 


75-22 74-10, 77-08 


01 00173S0 


L POSCOPY 


93-16 92-15 


01 0016735 


L POSITI 


75-41 75-36, 75-38 


0000004 


A POSITION 


LIBNUM=13 75-44,184-35 


0000000 


A POSOK 


14-06 W=1 S=15 N=0 CL*3 LIBNUM=13 75-35, 75-37 


01 0016712 


L POSREQ 


75-26 74-14, 77-36 


01 0017343 


L POSSTD 


92-41 


01 0016532 


L PRGS 


69-39 69-35 


01 0016535 


L PRGS1 


69-42 70-15 


01 0021011 


L PRINTDATA 


140-44 140-07,141-02 


01 0015635 


L PRINTIP 


42-48 41-07, 41-14, 42-07, 42-23 


01 0013316 


L PRINTOPHASH 


206-17 206-14 


01 0013002 


L PRINTOWFILE 


196-16 196-07 


01 0013521 


L PRINTSEGHASH 


214-11 213-31 


01 0016135 


L PRNTCOMP 


57-01 56-47 


12 


R PROCPM 


1 6-23 ^9-47 S i30-36 1 232-1 7 1 1 69 ~ 1 ^ 6 '" 34 ' 1 "-1 6,1 73-25,1 78-03,1 95-26,226-01 ,226-45,228-31 , 


13 


R PROCSCR 


16-24 H=20 S=0 N=11 CL«1 181-37,181-40,181-42,181-47,181-48,183-15,185-19,186-13,225-23, 
226-37,228-26,228-28,228-44, 228-46,229-02,229-10,230-31,230-33,230-39,231-22'231-24'231-29 


CIPl 


V PROGBLKS 


6-30 221-07 


01 0011766 


L PRTNXTORGBLK 


174-32 176-14 


0000000 


A PTP 


14-03 W=13 S=0 N=0 CL=3 LIBNUM=13 


01 0017103 


L PUTOOS 


78-41 78-09 


CBLM 


TTYTBL 


V 90FLCC 
U R 
X RXEG 


6-18 105-30,109-03 


127-36 127-36,129-12,130-32 


TTYTBL 


X RXEPT 


79-09 79-09 


CTVTAB 


V RXEQR 


LIBNUM=15 52-40, 56-44, 73-18, 75-11, 75-43, 77-45, 84-12, 90-09, 98-19, 99-09,100-19, 
101-07,105-27,121-18,121-28,150-19,152-40,167-28,169-08,178-40,179-02'l84-15'l84-22'l84-34' 
184-45,186-28,186-35,187-15,187-22,192-02,192-32,192-39;213-02^217-22^218-12;220-43;223-46; 






224-04,224-11,225-36,229-15,229-37,230-23,231-04^231-44^232-09'245-31 
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VALUE 


T NAME 


OEF/REF ATT 


14 


P RXEQRX.XCTAP 






H 


LIBNUM 


TTYTBL 


X RXMV 


178-21 178-21 


0000027 


A RARXF 


LIBNUM 


14 


P RAO 


LIBNUM 
36-17 
42-47 
50-14 
55-07 
60-33 
64-07 
71-30 
76-36 
78-25 






82-28 
86-15 
91-17 
95-21 


• 




102-42 
111-03 
120-08 
128-44 
160-43 
168-26 
182-27 
193-42 
196-46 
204-13 
231-14 


16 P 


LIBNUM 






55-09 






67-38 


• 




70-20 

75-28 

85-34 

88-19 

110-43 

119-45 

133-04 

139-14 

156-19 

160-08 

162-38 

172-42 


• 




175-02 
181-37 
192-17 
204-24 
221-48 



0:32:20 



2/06/81 **** 



ATTRIBUTES AND REFERENCES 



CNRUTL 



=15 

=5 

=3 

, 37- 
, 43- 
, 50- 
, 55- 
, 61- 
, 64- 
, 74- 
, 77- 
, 80- 
, 82- 
, 86- 
, 92- 
, 97- 
,106- 
,111" 
,121- 
,134- 
,164- 
,168- 
,183- 
,193- 
,196- 
,221- 
,236- 
=3 

, 60- 
, 67- 
, 70- 
, 76- 
, 65- 
, 88- 

,111- 
,119- 
,133- 
,139- 
,156- 
,160- 
,163- 
,173- 
,175- 
,181- 
,192- 
,204- 
,225- 



132-43 
28-12 
19, 37-20 
01, 44-33 
21, 52-26 
33, 55-47 
17, 61-34 
35, 65-08 
05, 74-06 
03, 77-04 
24, 80-27 
33, 83-03 
16, 86-23 
33, 92-35 
29, 98-01 
15,106-17 
24,112-15 
34,121-38 
♦1,134-42 
38,164-41 
30,172-49 
13,185-16 
43,193-44 
48,196-49 
07,221-17 
04,236-05 
33-05 
14, 61-35 
39, 69-12 
24, 70-43 
11, 77-23 
37, 85-45 
32, 92-04 
01,111-18 
46,120-11 
05,133-06 
23,141-07 
20,157-17 
17,160-18 
20,163-32 
40,173-41 
03,175-04 
47,182-06 
24,192-26 
25,204-38 
44,225-45 



, 28-39, 29 
, 37-22, 37 
, 44-34, 45 
, 52-27, 53 
, 56-14, 56 
, 61-37, 61 
, 66-31, 67 
, 74-38, 74 
, 77-12, 77 
, 80-37, 80 
, 83-19, 83 
, 87-21, 87 
, 93-20, 93 
, 98-44, 98 
,106-21,107 
,112-21,112 
,121-40,123 
,136-34,136 
,164-42,165 
,173-01,173 
,185-17,185 
,194-30,194 
,197-02,202 
,221-18,221 
,237-36,237 
, 34-02, 54 
, 62-14, 62 
, 69-14, 69 
, 70-44, 70 
, 77-26, 77 
, 86-05, 86 
,100-45,106 
,111-27,111 
,120-22,121 
,133-07,133 
,141-08,144 
,157-18,157 
,160-33,160 
,163-33,163 
,173-43,173 
,175-06,178 
,182-07,182 
,202-12,202 
,204-39,206 
,226-31,226 



-03, 29- 

-24, 38- 

-05, 45- 

-07, 53- 

-21, 56- 

-39, 62- 

-04, 67- 

-39, 75- 

-14, 77- 

-41, 81- 

-21, 85- 

-31, 88- 

-21, 94- 

-45, 99- 

-11,107- 

-35,112- 

-45,124- 

-35,136- 

-03,165- 

-02,173- 

-21,185- 

-31,194- 

-12,202- 

-19,221- 

-38 

-37, 54- 

-i5, 62- 

-16, 69- 

-46, 71- 

-30, 77- 

-06, 86- 

-38,106- 

•30,111- 

-39,122- 

-08,133- 

-49,145- 

•19,157- 

-41,160- 

-44,164- 

-45,173- 

-06,178- 

-11,182- 

-13,202- 

-23,206- 

-40,228- 



04 , 


30 


42, 


39 


06, 


45 


28 


53 


25 


57 


01, 


62 


21, 


67 


29, 


75 


24, 


77 


09 


81 


05, 


85 


17, 


88 


21, 


94 


36 


99 


16 


107 


41, 


113 


09, 


124 


36 


136 


04, 


165 


04, 


173 


22 


185 


32 


194 


13 


202 


31, 


221 



55- 

62- 

69- 

71- 

77- 

C6- 

107- 

112- 

122- 

133- 

146- 

159- 

160- 

164- 

173- 

178- 

182- 

202- 

212- 

228- 



-21, 31- 
-48, 40- 
-07, 45- 
-31, 53- 
-19, 58- 
-08, 62- 
-41, 68- 
-30, 75- 
-28, 77- 
-30, 81- 
-06, 85- 
-18, 88- 
-32, 94- 
-41,102- 
-30,107- 
-17,116- 
-10,124- 
-37,136- 
-05,165- 
-05,182- 
-23,185- 
-40,195- 
-31,202- 
-32,222- 

-01, 55- 
-19, 62- 
20, 69- 
22, 71- 
34, 78- 
13, 86- 
49,108- 
15,112- 
02,128- 
10,134- 
27,146- 
09,159- 
43,161- 
42,164- 
48,174- 
08,178- 
20,183- 
23,202- 
06,212- 
38,229- 



•28, 32- 
■20, 40- 
■20, 47- 
■39, 53- 
■26, 58- 
■12, 62- 
•27, 71- 
•31, 75- 
■29, 77- 
■44, 81- 
•25, 85- 
■23, 88- 
•44, 94- 
•02,102- 
•35,108- 
■24,117- 
■11,124- 
•41,136- 
■06,165- 
■06,182- 
■24,185- 
■01,155- 
•32,203- 
■38,228- 

■02, 55- 
■20, 62- 
22, 69- 
•23, 74- 
■02, 78- 
■14, 86- 
■03,108- 
■21,112- 
■09,128- 
■31,134- 
■28,151- 
•10,159- 
■19,161- 
•43,167- 
■36,174- 
•27,178- 
•14,183- 
•24,202- 
09,221- 
•28,229- 



-42, 33- 
-22, 40- 

-18, 47- 
-46, 53- 
-27, 59- 
-13, 62- 
-13, 71- 
-33, 76- 
-33, 77- 
-48, 82- 
-35, 86- 
-25, 88- 
-47, 94- 
-04,102- 
-30,108- 
-33,118- 
-19,128- 
-42,136- 
•09,165- 
-07,182- 
•25,185- 
-29,195- 
-11,203- 
-25,228- 

-03, 55- 
-21, 64- 
-24, 69- 
-04, 74- 
•06, 78- 
-24, 87- 
-15,108- 
•35,112- 
-13,128- 
-43,134- 
-35,152- 
-24,159- 
■20,162- 
-35,168- 
-37,174- 
-30,179- 
•30,183- 
•42,202- 
■02,221- 
-29,230- 



•10, 34 
■47, 42 
■19, 47 
■48, 54 
■04, 60 
■17, 63 
•14, 71 
■09, 76 
■38, 78 
■07, 82 
•05, 86- 
■34, 90 
■49, 95- 
■13,102' 
•31,108 
•05,119 
■08,128 
■46,136 
•10,165 
-19,182- 
■30,186 
•36,195 
■12,203' 
•26,228 

■04, 55- 
•04, 64- 
■26, 70- 
•30, 74- 
•12, 83- 
•23, 88- 
■30,108- 
•41,112- 
■26,128- 
■44,137 
■05,152- 
•38,159 
•02,162' 
■03,168- 
■38,174- 
■08,179' 
■31,185' 
•43,202- 
■16,221- 
■30,230- 



-34, 35- 
-42, 42- 
-33, 47- 
-27, 54- 
-04, 60- 
-08, 63- 
-19, 71- 
-27, 76- 
-03, 78- 
-08, 82- 
-06, 86- 
-01, 90- 
-03, 95- 
-15,102- 
-34,110- 
-22,119- 
-23,128- 
-47,137- 
-11,167- 
-20,182- 
-12,192- 
-37,196- 
-37,203- 
-35,228- 

-05, 55- 
-05, 64- 
-17, 70- 
-34, 74- 
-22, 83- 
-05, 88- 
-31,108- 
-46,119- 
-30,129- 
-02,138- 
-33,156- 
-39,159- 
-03,162- 
-28,169- 
-39,174- 
-09,181- 
-39,186- 
-45,203- 
-26,221- 
-31,230- 



W77D 



19, 36-15, 
43, 42-45, 
40, 48-35, 
36, 54-44, 
07, 60-18, 
45, 64-03, 
21, 71-27, 
30, 76-33, 

07, 78-10, 

16, 82-27, 
13, 86-14, 
30, 91-03, 
06, 95-07, 
17,102-31, 
43,111-01, 
28,119-44, 
25,128-42, 
01,160-42, 
34,168-02, 
21,182-22, 
27,193-41, 
08,196-45, 
38,204-12, 
36,231-13, 

06, 55-08, 

08, 64-19, 
18, 70-19, 
35, 74-40, 
23, 85-24, 

17, 88-18, 
32,109-11, 
23,119-29, 
38,133-03, 
15,138-24, 
17,156-18, 
49,160-01, 
36,162-37, 
47,170-11, 
43,174-44, 
29,181-36, 
01,192-16, 
13,203-14, 
27,221-47, 
49,231-15, 
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VALUE T NAME 


DEF/REF 


> 
R RCRDLG 


19-04 


01 0020165 L RDNX 


119-27 


01 0014132 L RDNXTBLK 


228-34 


0121052 L RDNXTBLK 


83-20 


MASACS V RDOPS 


8-25 


01 0014117 L RDOWRCRD 


228-23 


01 0012753 L RORCOLP 


195-24 


01 0011607 L RDRECORD 


169-33 


0000002 A RD1BLK 




01 0015762 L R01M0N 


52-36 


01 0017313 L R01M0N 


91-24 


01 0016424 L R01M0N" 


66-23 


01 0017714 L RD1STBLK 


105-07 


01 0017526 L READFC 


98-14 


01 0017526 L READTM 


98-13 


01 0016755 L READOTHER 


76-22 


01 0017400 L READSTO 


94-18 


01 0016744 L REDCOMR 


76-05 


01 0016747 L REDITI 


76-10 


01 0017011 L REDMORE 


77-11 


0000000 A REDON 


14-07 


0121425 L REFRESH 


107-44 


0006070 A REFSTOP - 


15-08 


0006060 A REFSTRT 


15-09 


01 0010052 L REGBUF 


26-01 


01 0017355 L REPOS 


93-24 


01 0014630 L REQFAIL 


245-06 


01 0011655 L REQFAIL 


170-24 


0007344 L REQMERGE 


251-33 


01 0014625 L REQPASS 


245-01 


CTAPH V REO.R 


52-40 


CSrSUB V RGCHKAOR 


7-08 


•PAGSCR+1' T RGCOUNT 




5 R RGCOUNTR 


15-02 


' ABORTING H 




SF' T RMK.ABTB 




' 00 NOT SKI 




P TEMPORARY 




STORE' T RMK ALL OP 




' ALARM A MI 




SMATCH* T RMK ALM OP 




• 2 WORDS FO 




R EXTRA STOR 




AGE' T RMK AUX1 




" T RMK"AUX2 




• BLOCK-TRAC 
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CNRUTL 



W77D 



231-16,232-04,232-06,233-25,233-26,233-43,233-44,234-13,234-14,234-15,236-01,236-04,236-05, 
236-06,237-40,237-42,243-27,243-28,247-11,248-15,248-16,248-38,251-27 
W=14 S«4 N=6 CL-1 233-27,233-28,236-19,236-27 
119-43 
229-21 
82-17 
183-01 

169-37,195-27 
197-30 
169-26 

LIBNUM-13 52-41, 84-13, 98-20,167-29,184-46,192-03,213-03,217-23,220-44,225-37,229-16, 
229-38 

52-16, 58-17, 61-06, 66-24, 76-12, 91-25, 94-24,105-09 

80-09 

66-08, 72-06 
104-09 

97-12 

97-07 

74-18 

92-12 

74-16 

76-18 

74-22, 76-29 
W=1 S=16 N»0 CL"3 LIBNUM=13 
107-13,107-32 
106-40 
107-25 
128-08,128-25,129-38 

167-1^172-23^174-2^1^ 
250-1 l'250-29'250-36^250-43,251-04 

1 69-40, 1 70-20,1 73-28,1 76-30,1 79-10,1 87-32,1 98-1 3,206-48,21 4-46,21 8-30,224-1 8 
84-34 

W=20 S=0 N«1 CL«2 129-19,129-34,129-37 
129-34,129-35,129-39,129-46,129-48 



74-37, 78-12,122-02 
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JM- 



ATTRIBUTES AND REFERENCES 



LIBNUM-13 






PATCH HISTORT 

VALUE T NAME DEF/REF 

K NUMBER" T RMK BKNO 

' DATA CHANG 

ED IN THIS T 

APE BLOCK (L 

OD:OW)' T RMK BLKCHGD 

' SECOND BLO 

CK-TRACK NUM 

BER' T RHK.CBKNO 

' READ WITH 

COMPLEMENT C 

ORRECT STORE 

READS' T RMK.COMP OP 
" T RMK COMPROK 

' BEGINNING 
OF FIRST 0R6 
BLK - N(EOH) 

IS THE LENG 
TH OF THE HE 
ADER' T RMK EOH 
' ERROR COUN 
T* T RMK ERCT 

' POINTER TO 

CURRENT POS 
ITION IN THE 

INPUT-OUTPU 
T BUFFER* T RMK IOBPTR 
' LAST BLOCK 

TO COPY' T RMK LASBLK 
' NUMBER OF 
BLOCKS TO CO 

PV T RMK LENGTH 

' NUMBER OF 

BLOCKS' T RMK LENO 
•BUFFER FOR 
TTY LINK POI 

NTER' T RMK LINKWRD 
' LINK NUMBE 
R SAVE AREA' T RMK LNKS 
' FIRST BLOC 
K-TRACK NUMB 

ER' T RMK MBKNO 

' NEW OPTION 

WAS REQUEST 
ED.' T RMK NEW OP 
' HIGH 8 BIT 
S OF NEW DAT 

A' T RMK NEWDH 

' LOW 16 BIT 
S OF NEW DAT 



COMMON NONRESIDENT UTILITIES 

0:32:20 2/06/81 TRADE SECRET - SEE TRADE SECRET RESTRICTIVE NOTICE ON COVER SHEET CNRUTL 



0:32:20 2/06/81 **** 
CNRUTL W77D 






PR-1C95A-50 
ISSUE 05 PAGE 



296 



• • 






• • 



• • 



PATCH HISTORY 
VALUE T NAME 



A* 

' NO BEGINNI 

N6 ADDRESS S 

PECIFIED' 

' NO LAST AD 

DRESS SPECIF 

IED' 

' FIRST ADDR 

ESS OF BLOCK 

' TOTAL NUMB 

ER OF MAS WO 

RDS TO NEXT 

BLOCK' 

' SEGMENT NU 

MBER OF BLOC 

K' 

' COMPARE OF 

FLINE TO CON 

STANT' 

' OFFLINE PA 

RITY ERROR' 

' NUMBER IDE 

NTIFIES WHIC 

H OFFLINE UT 

ILITY TO RUN 

' HIGH 8 BIT 

S OF OLD DAT 

A* 

' LOW 16 BIT 

S OF OLD DAT 

A' 

* COMPARE ON 
LINE TO CONS 
TANT' 

' COMPARE ON 

LINE TO OFFL 

INE' 

' ONLINE PAR 

ITY ERROR' 

' POINTER TO 

CURRENT POS 
ITION IN THE 

OM BUFFER' 
' OWFILE PRI 
NT SWITCH' 
' OH NUMBER' 

* OH NUMBER 
IDENTIFIER' 

' OM STATUS' 



T RMK. 

T RMK. 

T RMK. 
•T RMK. 

T RMK. 

T RMK. 

T RMK. 
T RMK. 

•T RMK. 

T RMK. 

T RMK. 

T RMK. 

T RMK. 
T RMK. 



T RMKOHBPTR 



T RMK 
T RMK. 

T RMK 
T RMK. 



OWFILSW 

OWNO 

OHNUM 
OWSTAT 



• • 



_B08_ 



DEF/REF ATTRIBUTES AND REFERENCES 
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.NEHDL 

.NOBGN 

.NOLAST 
.OBLKADR 

.OBLKLG 

.OBLKSEG 

OFF_CON 
OFL_ERR 

.OFLUNO 

OLDDH 

OLDDL 

ON_CON 

ON_OFF 
,ONL_ERR 
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PATCH HISTORY 
VALUE T NAME 



' TOTAL LENG 
TH OF OH (IN 
CLUOES HEADE 
R, ETC.)' 
' TYPE OP OH 
(GENERIC OR 
TRANSLATION 

' BEGINNING 
OF OATA, N(P 
GOATA)=LENGT 

H OF HEADER' 

• i 

' 'RETURN AD 
DRESS' OF A 
PROCEDURE' 
' SCRATCH RE 
GISTER FOR U 
SE BY PROCED 
URES' 

• t 

' LENGTH OF 
RECORD' . 

• t 

•POINTER INT 
REGISTER S 
TORED IN ON- 
LINE BUFFER' 

• OW PROGRES 
S MARK' 

' POINTER TO 
IOBUFFERUN 

DEX)' 

' SUBSTATE I 

NDEX' 

' REQUEST TO 
TAPE HANDLE 

R IS ACTIVE' 

' TAPE NUMBE 

R' 

' REQUEST TY 

PE (GENERIC 

OR TRNSLN)' 
1 1 

' TTY OPTION 
WAS REQUEST 
ED.' 
' TTY LINKED 



T RMKOWTLEN 



T RMK OWTYPE 



RMK PGDATA 
RMK POSOK 



T RMK PROCPM 



RMK RTBPM 
RMK SEQERR 



RMK TRN OP 
RMK TSTATE 



T RMK TTYOP 



coe 
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RMK PROCSCR 
RMK_PTP 

RMK RCRDLG 
RMK REDON 



T RMK_RGCOUNT 



RMK_SGNO 
RMK.SUBST 

RMK.TAPEACT 
RMKTPNO 



LIBNUM*13 



LI6NUM-13 

LIBNUM=13 



LIBNUM=13 
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; 



ML 



PATCH HISTORY 
VALUE T NAME 
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OUTPUT IS A 
CTIVE' 

' SECOND DIC 
TIONARY WORD 

OF TTY INPU 
T MESSAGE' 
' INFORMATIO 
N FOR TTY LI 
NKED OUTPUT' 
' FIRST DICT 
IONARY WORD 
OF TTY INPUT 

MESSAGE' 
' UNCONDITIO 
NAL ACT:OW R 
EOUEST' 
' UTILITY CO 
NTROL MAJOR 
STATE' ■ 
' WIDE STORE 

FLAG' 

' FIRST ENTR 

Y TO MSF' 

01 0012066 

01 00203*4 

01 0020350 

10 



T RMK.TTYACT 

T RMK_TTYID1 
T RMK.TTYLINK 

T RMK_TTYVERB 

T RMK_UCL_OP 

T RMK.UTCTL 

T RMK_WIDE_OP 

T RMK 1STB 
L RMVOW 
L RPRNT 
L RPRNTIT 
R RTBPM 






01 0011160 L RTBPMORG 



01 0020116 
0121411 

01 0011234 
0000261 
0121446 
0000223 

01 0023001 

01 0023041 




RTN 

RTN LP 

RTN NG 

RTNMCHB 

RTNNOW 

RTNSS 

RTNTBL16 

RTNTBL20 

RO 



177-03 
70-37 
70-42 
16-19 

154-11 

116-2? 
107-21 
159-28 

108-09 

132-01 
132-35 



5-29 

70-23, 70 
70-36 
W*16 S=0 
216-06,220 
167-04,169 
216-06,220 
116-23,116 
107-39 
159-19,159 
LI8NUM=5 
108-07 
LIBNUM=5 
128-09 
128-26 
LIBNUM=3 
29-06, 30 
34-07, 34 
36-15, 36 
39-41, 40 
41-48, 41 
45-03, 45 
51-10, 52 
55-33, 55 
60-04, 60 
62-17, 63 



-33 

N*6 CL*1 

•20,226-01,226- 

18,169-36,172- 

20,248-15 

27 



-23 



128-19,128- 
110-18 



154-07,154-10,167-04,172-08,177-32,181-24,191-29,204-15,211-43, 
45, 228-31,229-47,230-36,232-17,243-28,245-33,248-14, 248-16'248-17 
08,173-16,173-25,177-32,178-03,181-24,191-29,195-26,204-15^211-43, 



36 



11 
•20, 30 
33, 34 
16, 36 

04, 40 
49, 42 

05, 45 
26, 52 
47, 56 
14, 60 
08, 63 



-18, 11- 

-21, 31- 

-34, 35- 

-17, 37- 

-09, 40- 

-15, 42- 

-15, 45- 

-42, 53- 

-05, 56- 

•15, 60- 

■45, 63- 



19, 19-04, 

20, 31-27, 
07, 35-08, 
23, 37-24, 

21, 40-22, 

16, 42-36, 

20, 47-17, 
07, 53-08, 

21, 56-22, 

17, 60-18, 
48, 64-03, 



19-06, 
31-28, 
35-09, 
38-26, 
40-36, 
42-42, 
47-18, 
53-09, 
56-25, 
60-32, 
64-05, 



28-13, 
32-41, 
35-10, 
38-29, 
40-37, 
42-43, 
47-19, 
53-28, 
56-46, 
60-33, 
64-06, 



28-15, 
32-42, 
35-11, 
38-32, 
40-44, 
42-46, 
48-27, 
53-39, 
57-15, 
61-39, 
64-07, 



28-16, 
33-05, 
35-18, 
38-36, 
40-45, 
42-47, 
48-35, 
53-42, 
57-19, 
62-01, 
64-35, 



28-36, 
33-11, 
35-19, 
38-40, 
41-11, 
42-49, 
48-36, 
53-48, 
58-27, 
62-04, 
65-07, 



28-39, 
33-22, 

36-06, 
38-41, 
41-13, 
43-01, 
51-06, 
54-20, 
59-20, 
62-13, 
65-08, 



29-03, 
33-32, 
36-07, 
38-42, 
41-42, 
44-24, 
51-07, 
54-21, 
59-21, 
62-15, 
66-31, 



29-05, 
34-02, 
36-13, 
39-40, 
41-43, 
44-48? 
51-09, 
55-07, 
59-29, 
62-16, 
67-21, 
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JBL 



PATCH HISTORY 
VALUE T NAME 



0:32:20 2/06/81 **** 



DEF/REF 



ATTRIBUTES AND REFERENCES 



0000123 A ROXT 
1 R R1 



67-41, 68 

74-3*, 7V 

77-34, 77' 

83-19, 83 

84-36, 84' 

86-01, 86- 

88-09, 88' 

89-49, 90 

94-21, 94 

101-09,104- 

108-32,110 

117-33,117- 

119-37,119 

122-31,128 

129-35,129 

139-30,140 

151-35,151 

159-07,159 

160-17,160 

163-32,163 

167-08,167 

169-24,169 

174-46,176 

181-43,181 

183-23,183 

185-23,185 

187-49,191 

192-27,192 

199-11,199 

205-17,205 

211-37,211 

213-40,214 

223-31,223 

228-30,228 

229-28,229 

231-21,231 

233-47,234 

240-09,240 

244-19,244 

247-28,247 

LIBNUM=5 

L1BNUM=3 

36-13, 38 

47-39, 47 

58-26, 59 

62-15, 64 

72-04, 73 

75-39, 76 

77-26, 77 



•23, 69- 
•40, 75- 
•37, 77- 
-21, 83- 
•42, 85- 
■07, 86- 
-10, 88- 
•01, 90- 
•32, 94- 
-35,104- 
-18,111- 
-34,117- 
-47,120- 
-05,128- 
-36,129- 
-27,140- 
-36,151- 
-11,159- 
-48,160- 
-35,163- 
•09,167- 
-38,169- 
-12,176- 
-45,182- 
-28,183 
-24,185- 
-16,191- 
-28,193- 
-15,199- 
-18,205- 
-38,212- 
-32,214 
-33,225 
-35,228 
■46,230 
-22,231- 
-01,234- 
-12,240 
-21,244- 
-29,247 
132 
11 
-46, 38 
-40, 50 
-37, 61 
-04, 64 
-04, 74 
-11, 76- 
-29, 77 



■33, 69- 
■14, 75- 
■38, 78- 
•22, 83- 
•02, 85- 
■08, 86- 
■11, 88- 
■11, 90- 
■33, 94- 
■37,104- 
■05,112- 
■35,117- 
-10,120- 
■08,128- 
•37,129- 
-28,140- 
■39,152- 
-14,159- 
-49, HI- 
'S?, 163- 
-34,167- 
-39,169- 
•13,176- 
■02,182- 
-29,183- 
-29,185- 
-17,191- 
■16,193- 
-16,202- 
-21,206- 
-06,212- 
•33,217- 
-23,225- 
•36,228- 
-30,230- 
•27,231- 
•03,234- 
-18,240- 
•24,244- 
•45,248- 
-03 

-04, 15- 
■47, 38- 
-20, 50- 
-04, 61- 
•05, 66- 
■05, 74- 
■17, 77- 
-31, 78- 



34, 70-17 
29, 75-31 

02, 80-27 
23, 83-30 

03, 85-05 
15, 86-23 
14, 88-16 
29, 90-30 

47, 94-48 
38,106-17 
42,114-04 
39,117-41 
12,121-20 
09,128-19 
38,129-45 
29,146-17 
04,152-05 
20,159-21 
26,161-27 
39,163-44 
35,167-42 
47,170-15 
15,178-01 
03,182-11 
31,184-07 
47,186-02 
18,191-23 
17,193-40 
04,202-05 
11,206-13 
07,?12-08 
35,217-36 
44,225-45 
37,228-38 
35,230-45 
29,231-31 
10,234-11 
21,241-46 
25,244-28 
17,248-32 

01, 24-18 

48, 39-13 
21, 52-14 
33, 61-34 
05, 66-32 
31, 74-32 
03, 77-12 
03, 78-04 



70- 

75- 

81- 

83- 

85- 

86- 

88- 

91- 

94- 

106- 

114- 

117- 

121- 

128- 

134- 

146- 

152- 

159- 

161- 

163- 

168- 

170- 

178- 

182- 

184- 

186- 

191- 

194- 

202- 

209- 

212- 

221- 

225- 

228- 

230- 

231- 

234- 

242- 

244- 

248- 



43, 71- 
45, 76- 
09, 81- 
31, 83- 
24, 85- 
24, 87- 
19, 88- 
02, 91- 
49, 95- 
19,106- 
13,114- 
43,117- 
30,121- 
25,128- 
31,135- 
19,146- 
06,152- 
24,159- 
33,161- 
45,164- 
02,168- 
16,172- 
06,178- 
12,182- 
09,185- 
03,186- 
35,191- 
18,195- 
08,202- 
20,209- 
09,212- 
02,221- 
47,225- 
43,228- 
46,230- 
33,231- 
13,235- 
02,242- 
29,244- 
33,248- 



16, 71 

08, 76 

48, 

37, 

34, 

23, 

32, 

03, 92 

01, 95 

21,106 

17,116 

46,117 

31,121 

26,128 

39,135 

28,150 

33,152 

26,159 

34,162 

10,164 

03,168 

42,172 

07,178 

21,182 

07,185 

12,186 

36,192 

29,195 

09,202 

23,210 

29,212 

16,221 

49,226 

44,228 

48,230 

37,231 

35,235 

18,242 

30,244 

38,250 



-17, /3- 
•09, 76- 
-16, 82- 
-38, 83- 
-38, 85- 
-31, 87- 
-31, 89- 
-04, 92- 
-15, 95- 
-23,106- 
-22,116- 
-48,117- 
-34,121- 
-36,129- 
-40,136- 
-21,150- 
-42,152- 
-38,159- 
-05,162- 
-11,164- 
-20,168- 
-49,173- 
-08,178- 
-26,182- 
-16,185- 
-20,186- 
-09,192- 
-36,195- 
-17,202- 
-07,210- 
-36,213- 
-17,221- 
-17,226- 
-49,229- 
-49,231- 
-38,231- 
-43,236- 
-19,243- 
-31,244- 
-19,250- 



15, 73- 

26, 76- 

27, 82- 
39, 83- 
39, 85- 
37, 87- 

32, 89- 

33, 92- 
21, 97- 
38,107- 
25,116- 
49,118- 
35,121- 
17,129- 
41,136- 
30,150- 
43,153- 
45,159- 
06,162- 
45,164- 
24,168- 
05,173- 
17,179- 
47,183- 
17,185- 
22,187- 
11,192- 
40,196- 
42,202- 
10,210- 
15,213- 
18,221- 
44,227- 
02,229- 
02,231- 
42,232- 
01,236- 
22,243- 
34,244- 
20,251- 



16, 73 
28, 77 

33, 82 
42, 83 
40, 85 
38, 87 
35, - 

34, 93 
26, 97 
11,107 
28,117 
03,118 
39,122 
18,129 
42,137 
31,150 
08,153 
46,159 
12,162 
46,165 
30,168 
40,174 
08,181 
02,183 
19,185 
07,187 
14,192 
44,197 
49,203 
45,210 
16,213 
40,221 
02,227 
04,229 
13,231 
04,232 
06,237 
23,243 
35,244 
14,251 



CNRUTL 

•20, 74 
27, 77 
34, 



■44, 



24-19, 24-20, 

39-36, 39-37, 

32-27, 53-12, 

61-35, 61-36, 

67-37, 68-08, 

74-33, 74-39, 

77-13, 77-14, 

78-05, 78-06, 



i'4-21, 
39-44, 
54-37, 
61-37, 
68-39, 
75-25, 
77-15, 
78-10, 



29- 
39- 
54- 
62- 
69- 
75- 
77- 
78- 



04, 34-26, 
45, 41-12, 
42, 57-16, 
08, 62-09, 
30, 69-33, 
27, 75-28, 
18, 77-19, 
11, 78-12, 



41, 85- 
■39, 88- 
89-37, 89- 
•J1 , 93- 
■45, 98- 
■16,107- 
■24,117- 
■04,119- 
■13,122- 
■19,129- 
•10,137- 
■33,150- 
•11,153- 
■49, \W- 
■13,163- 
•06,165- 
•35,169- 
•36,174- 
■40,181- 
■04,183- 
■20,185- 
■09,187- 
■16,192- 
■37,197- 
•18,203- 
•46,211- 
•33,213- 
■41,221- 
•05,227- 
■06,229- 
■14,231- 
■07,232- 
■09,237- 
■27/243- 
•36,247- 
-23^251- 

35-14, 36- 
41-13, 42- 
57-19, 57- 
62-11, 62- 
70-19, 71- 
75-30, 75- 
77-22, 77- 
80-06, 80- 



W77D 

30, 74-31, 
28, 77-30, 
36, 83-03, 
21, 84-27, 
42, 85-49, 
05, 88-08, 
45, 89-47, 
23, 93-25, 
21,100-43, 
30,107-35, 
25,117-31, 
21,119-32, 
14,122-30, 
27,129-30, 
38,138-31, 
38,150-42, 
25,154-08, 
05,160-06, 
06,163-20, 
12,165-13, 
16,169-22, 
43,174-44, 
41,181-42, 
13,183-14, 
21,185-22, 
43,187-48, 
24,192-26, 
43,199-10, 
35,204-32, 
16,211-17, 
34,213-39, 
46,222-01, 
06,228-25, 
25,229-26, 
15,231-16, 
16,233-45, 
10,237-14, 
28,243-30, 
11,247-25, 
27 

V,, 36-12, 
44, 42-45, 
20, 58-09, 
12, 62-14, 
14, 71-16, 
33, 75-34, 
23, 77-24, 
28, 81-17, 
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PATCH HISTORT 
VALUE T NAME 



0:32:20 2/06/81 **** 



DEF/REF ATTRIBUTES AND REFERENCES 









00001 e. A R1XF 
0000125 A RUT 
12 R R10 



0000152 A R10XT 
13 R R11 



000015* A R11XT 
1* R R12 



0000107 A R12XT 

15 R R13 

0000113 A R13XT 

16 R R14 

0000115 A R14XT 

17 R R15 



0000116 A R15XT 
2 R R2 



81-47, 83 
93-20, 93 
98-01, 98 
116-26,117 
120-08,121 
163-18,163 
172-16,173 
178-28,178 
183-37,184 
191-19,191 
210-25,212 
226-31,226 
230-45,231 
235-34,236 
LIBNUM=5 
LIBNUM=5 
LIBNUM=3 
69-20, 70 
141-21,141 
203-13,203 
211-38,213 
236-27,236' 
LIBNUM=5 
LIBNUM=3 

49-08, 49' 
136-04,136- 
203-38,204' 
221-27,221' 
LIBNUM=5 
LIBNUM=3 
174-49,175- 
183-04,185- 
LIBNUM=5 
LIBNUM=3 
174-39,175- 
LIBNUM=5 
LIBNUM=3 
241-26,241- 
LIBNUM=5 
LIBNUM=3 
205-19,205- 
241-35,242- 
HBNUM=5 
LIBNUM=3 
16-16, 16- 
40-29, 40- 
47-33, 49- 
62-39, 62- 
70-46, 71- 



■26, 83 
-22, 94 
-44,100 
-29,117 
-38,122 
-33,163 
-03,173 
-30,178 
-32,185 
-20,191 
-09,213 
-37,226 
-18,231- 
-36,237- 

248- 

132- 
27- 
-04,106- 
-SCUD- 
'S?, 204- 
-34,221- 
-29,237- 

132- 
27- 
-34, 49- 
•07,136- 
■25,204- 
■48,223- 

132- 

55- 

■04,175- 

■34,185- 

132- 

55- 

01,175- 

132- 

129- 
■31,241- 

132- 

129- 
■42,206- 
■02 

132- 
16- 
•17, 16- 
44, 40- 
01, 49- 
43, 62- 
19, 71- 



-30, 83- 
-45, 95- 
-44,101- 
•31,117- 
-47,144- 
-0/,164- 
-08,175- 
-29,181- 
-21,185- 
-15,192- 
-12,216- 
-41,228- 
-21,231- 
•19,240- 

-21 

-21, 37- 

-25,133- 

-37,165- 

-38,205- 

-47,222- 

•27,238- 

•47, 39- 
■06, 63- 
■27,140- 
■16,205- 
•31,233- 

■24, 70- 
■02,176- 
■43,185- 

•26, 70- 
■48,183- 



33, 83 
03, 95 
27,101 
40,117 
49,146 
08,164 
09,176 
36,182 
22,185 
17,192 
15,216 
40,228 
24,231 
14,240- 



■37, 85- 
•04, 95- 
-33,102- 
•41,117- 
•27,151- 
■10,164- 
■09,176- 
■03,182- 
•23,185- 
■24,195- 
■29,217- 
■41,228- 
■27,232- 
■23,241- 



•06, 85- 
05, 95- 
36,102- 
49,118- 
13,151- 
30,164- 
13,177- 
05,182- 
25,185- 
37,197- 
28,217- 
43,228- 
05,232- 
07,241- 



09, 86- 
06, 95- 
42,104- 
01,119- 
14,160- 
43,167- 
36,178- 
22,182- 
30,185- 
41,204- 
32,220- 
46,228- 
06,233- 
43,241- 



16, 89 
07, 97 
06,109 
22,119 
41,161 
11,168 
0<»,178 
27,182 
39,185 
35,205 
29,222 
49,229 
32,233 
49,242 



•46, 89- 
04, 97' 
•11,116- 
-25,119- 
■22,161- 
■02,168- 
■15,178- 
■48,183- 
•48,186- 
■24,205- 
■07,222- 
•29,229- 
■33,233- 
■05,244- 



CNRUTL 

•47, 92- 
■27, 97- 
■20,116- 
•28,119- 
•38,161- 
•05,168- 
•17,178- 
■08,183- 
■01,186- 
■40,206- 
•12,223- 
•31,230- 
46,233- 
18,248- 



W770 

05, 92-35, 
28, 97-29, 
21,116-24, 
30,119-46, 
40,162-34, 
28,168-31, 
25,178-27, 
23,183-32, 
07,187-44, 
19,209-24, 
06,223-08, 
•ii, 230-42, 
^8,234-10, 
15,248-22 



-27, 83 
-43, 94 
-01,100 
-30,117 
-02,144 
-42,164 
-04,175 
-31,181 
-18,185 
-37,192 
-08,213 
-40,226 
-19,231 
•15,237' 
-25 

-04,248- 
■05, 37- 
■40,107- 
■31,162' 
■24,204- 
■26,221- 
■02,237- 
•13 

■01, 38- 
■43, 55- 
•15,136- 
•39,205- 
■12,223- 
■14 

■08, 69- 
05,176- 
•36,185- 
•15 

09, 69- 
■06,182- 
■16 

■41,144- 
■34,241- 
•17 

•39,137- 
•11,221- 

■18 

04, 16-06, 16-07, 16-08, 16-09, 16-10, 16-11, 16-12, 16-13, 16-14, 16-15, 

19, 16-20, 16-21, 16-22, 16-23, 16-24, 28-12, 39-11, 39-13, 40-04, 40-15, 

47, 41-29, 41-32, 41-43, 41-49, 42-15, 46-22, 47-14, 47-15, 47-22, 47-23, 

14, 49-40, 50-04, 50-12, 50-13, 50-14, 50-16, 55-48, 56-07, 56-14, 62-28, 

47, 63-02, 67-35, 67-39, 68-27, 70-20, 70-21, 70-24, 70-25, 70-44, 70-45, 

23, 71-27, 71-28, 74-06, 74-07, 74-33, 74-35, 74-40, 75-30, 75-35, 75-37' 



■22, 38-30, 38-32, 55-05, 59-29, 63-05, 64-20, 64-24, 64-25, 
07,134-41,136-04,136-06,136-14,136-26,137-12,137-21,140-13, 
•10,173-47,174-02,175-02,187-43,197-01,197-05,202-04,202-43, 
21,205-23,205-41,209-23,209-41,210-18,210-36,211-17,211-26, 
•01,222-03,223-08,223-10,223-11,233-43,233-47,236-18,236-19, 
03,241-39,241-41 

33, 39-34, 39-40, 39-43, 40-15, 40-20, 46-41, 47-21, 48-44, 

07, 64-25, 64-29, 64-31, 64-32, 69-22, 70-06,133-08,134-42, 
25,141-37,162-38,165-11,175-03,187-44,202-05,202-45,203-14, 
19,205-42,210-10,210-18,210-33,210-46,211-37,213-30,214-32, 
44,233-48,241-40,241-42 

08, 89-07,133-09,141-38,144-40,160-30,160-31,174-38,174-47, 
04,181-30,182-05,182-31,182-33,182-43,182-45,182-47,183-03, 
45,185-47,186-03,233-45,236-18,241-41 

10, 89-05,133-10,141-39,141-48,144-37,160-29,164-40,165-01, 
08,185-48,186-07,203-25,205-14,233-46,241-42 



•40,159-41,159-42,159-43,159-45,205-41,240-27,240-43,240-48,241-02, 
■46 

26,137-40,144-37,159-40,159-46,204-34,205-09,205-14,205-16,205-17, 
35,221-37,221-40,221-43,221-45,221-46,240-28,240-44,241-03,241-27, 
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PATCH HISTORY 
VALUE T NAME 



DEF/REF ATTRIBUTES AND REFERENCES 



0:32:20 2/06/81 **** 
CNRUTL W77D 



0000126 A R2XT 
3 R R3 



0000131 A R3XT 
* ft M 



0000132 A R4XT 
5 R R5 



0000134 A R5XT 
6 R R6 



00001*3 A R6XT 
7 R R7 






71 
77 
89 



75-39, 76 
89-34, 94 
119-29,119 
128-31,128 
144-07,160 
168-31,170 
177-25,178 
192-19,192 
237-14,237 
242-10,242 
LIBNUM=5 
LIBNUM=3 
41-30, 41 
62-40, 62 
71-21, " 
77-22, 
89-31, 
108-02,108 
161-42,163 
223-25,240 
251-03,251 
LIBNUM=5 
LIBNUM=3 
71-13, 71 
86-01, 99 
139-37,140 
161-39,161 
163-22,163 
23^-28,234 
245-41,246 
LIBNUM=5 
LIBNUM=3 
69-31, 69 
108-15,108 
139-30,140 
162-36,163 
LIBNUM=5 
LIBNUM=3 
54-20, 54 
69-45, 76 
135-01,135' 
157-17,160' 
187-47,191- 
197-37,197- 
213-12,214 
223-05,223- 
245-08,245- 
LIBNUM=5 
LIBNUM=3 



-27, 76 
-44, 94 
-30,119 
-42,136 
-33,160 
-03,170 
-11,178 
-22,209 
-27,237 
-19,244 
132 

28 
-45, 42 
-41, 62' 
-22, 71 
-31, 77- 
-34, 89- 
-03,108- 
-21,163 
-31,240- 
-10,251- 
132- 

38- 
-17, 74- 
-41,100- 
-11,141- 
•40,161- 
■47,164- 
■11,240- 
■17 
. 132- 

15- 
■40, 69- 
•37,110- 
•12,141- 
■20,163- 
132- 

27- 
•42, 54- 
•33, 78 
■04,136 
•46,162 
■16,191 
■38,204 
13,214 
11,223 
■45 

132 

32 



-28, 77 
■45, 98 
•45,120 
•34,138 
•49,163 
•04,170 
■13,178 
•24,209 
■36,237 
-19,244 
-05,138 
-15, 28- 
-13, 53 
-44, 62- 
-23, 71 
-32, 77- 
-37, 99- 
-06,108- 
-23,164- 
-49,241- 
-42 
-06 

-35, 38- 
-35, 74- 
-03,101- 
-37,142- 
-41,161- 
-08,164- 
-36,240- 

-07,139- 

-02, 27- 

-43, 69- 

■03,111- 

-38,142- 

-21,164- 

•08 

■04, 36- 

■43, 54- 

■24, 78- 

■06,136- 

•17,162- 

■23,193- 

■22,205- 

■14,217- 

■25,223- 

•09 



-04, 77- 

•45,100' 

-11,120- 

-38, 140- 

•23,164- 

•07,170- 

•21,178- 

■40,210- 

■40,240- 

■20,244- 

■37 

•34, 28- 

■30, 53- 

•45, 62- 

•29, 71- 

•33, 77- 

•36,100- 

•08,110- 

•46,170- 

■05,241- 



-05, 77- 
■03,100- 
•20,120- 
•09,141- 
■07,164- 
■08,170- 
■23,178- 
■25,221- 
■29,240- 
■25,251- 

■37, 28- 
•31, 54- 
•48, 62- 
■30, 74- 
•35, 82- 
•01,101- 
■35,128- 
01,170- 
■11,241- 



■32, 77 

■45,101 
•22,121 
■14,141 
•45,166 
■09,170 
■28,179 
■31,221 
•41,240 
•18,251 

•39, 28 
•27, 54 
•49, 68 
04, 74 
•14, 82 
•30,10V 
■23,128 
■02,172- 
■32,241- 



-35, 88- 
-27,101- 
-40,121- 
-27,141- 
-30,166- 
-11,171- 
-09,181- 
-35,221- 
-47,241- 
-19,251- 

-40, 39- 
-33, 54- 
•08, 68- 
-34, 74- 
-20, 82- 
-36,102- 
-44,136- 
■45,172- 
•37,244- 



06, 88- 
•34,102- 
■41,121- 
45,142- 
32,166- 
35,171- 
01,181- 
45,222- 
09,241- 
35 

12, 39- 
34, 54- 



39, 68 
36, 74 
24, 83 
25,102 
35,138 
46,209 
18,244 



11, 88- 
-14,102- 
-42,122- 
-15,142- 
-40,168- 
-37,171- 
-03,181- 
-04,222- 
■24,241- 

■15, 39- 
■36, 60- 
■40, 69- 
■37, 74- 
■40, 88- 
■31,107- 
•31,140- 
■29,209- 
•30,250- 



13, 89- 
15,107- 
01,128- 
18,142- 
03,168- 
45,172- 
11,185- 
24,237- 
30,241- 



17, 39 
06, 60 
29, 69 
38, 77 
10, 88 
45,107 
10,141 
40,221 
10,250 



24, 89- 

49,119- 

13,128- 

46,143- 

-05,168- 

-47,172- 

-18,185- 

-02,237- 

-49,242- 

-26, 40- 
-07, 62- 
-37, 70- 
■15, 77- 
-13, 88- 
•46,107- 
•20,160- 
•32,223- 
■28,250- 



-37, 38-38, 64- 
-37, 76-30, 76- 
-30,101-37,119- 
-07,160-35,160- 
-42,162-02,162- 
-36,164-43,170- 
-37,240-48,241- 



33, 67-38, C7- 
31, 77-01, 85- 
44,122-01,128- 
41,160-44,161- 
06,162-09,162- 
02,172-46,173- 
02,241-03,241- 



39, 69-07, 69- 
25, 85-26, 85- 
40,128-41,128- 
19,161-22,161- 
16,162-25,162- 
01,222-46,223- 
18,241-19,241- 



34, 70-18, 70- 
28, 85-30, 85- 
42,128-43,128- 
24,161-26,161- 
26,162-29,162- 
40,233-25,233- 
20,241-31,241- 



30, 89-32, 
23,119-25, 
14,128-30, 
27,143-30, 
26,168-30, 
48,177-22, 
39,186-01, 
09,237-12, 
01,242-05, 



29, 40-30, 
29, 62-30, 
45, 71-20, 
16, 77-21, 
16, 89-28, 
47,107-48, 
34,160-48, 
01,223-13, 
35,250-42, 



34, 70-39, 

35, 85-36, 
44,136-36, 
30,161-38, 
31,162-34, 
26,233-27, 
34,241-35, 



36 

02, 38- 
44, 70- 
05,111- 
09,161- 
40,165- 

06, 38- 
44, 55- 
25, 78- 
12,136- 
40,163- 
07,193- 
24,205- 
02,217- 
35,235- 



36, 38-37, 41-06, 42-30, 64-34, 68-41, 69-10, 69-11, 69-28, 

ll'JJ'll'JJ'lt'J. -' 55 ' 70_41 ' 71_05 ' 71-06/101-33,101-35; 
18,111-29,111-30,111-42,112-48,120-09,120-10,120-11,136-37, 
20,161-33, 162-03,162-13,162-26,162-29,162-30 J62-3ni62-32^ 
01,170-04,172-48,173-02 



24, 38- 
01, 62- 
27, 79- 
24,140- 
11,163- 
09,193- 
40,206- 
28,217- 
34,236- 



26, 38- 
18, 64- 
09,101- 
09,140- 
18,163- 
14,193- 
22,206- 
32,217- 
36,237- 



29, 38- 
08, 64- 
34,101- 
11,140- 
19,163- 
20,193- 
23,206- 
45,217- 
15,237- 



35, 38 
09, 64 
35,101 
13,140 
45,164 
41,194 
36,209 
47,221 
19,240 



-41, 41- 
-10, 64- 
-40,117- 
•26,141- 
■38,165- 
■30,194- 
-10,209- 
•28,222- 
■05,240- 



06, 42 
11, 64 
24,123 
07,145 
03,170 
31,195 
13,212 
07,222 
09,240 



-30, 44- 
-12, 64- 
-45,133- 
-07,145- 
-05,170- 
-40,195- 
-23,212- 
-12,222- 
-12,242- 



33, 53-46, 
27, 69-12, 
03,134-47, 
12,156-17, 
06,173-41, 
43,196-45, 
38,213-08, 
38,223-01, 
18,245-03, 



27, 32-30, 32-33, 32-36, 37-20, 38-46, 39-32, 39-36, 39-39, 39-47, 39-48, 
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0:32:20 2/06/81 **** 



DEF/REF ATTRIBUTES AND REFERENCES 



0000145 A R7XT 
10 R R8 



0000146 A R8XT 
11 R R9 



0000151 A 


R9XT 


U 


S 


TTYTBl X 


SXE6 


TTYTBL X 


SXELCT 


CTVTAB V 


SXMCH 


14 P 


SXMCHX XCSYS 




UB 


TTYTBL X 


SXTART 


TTYTBL X 


SXTOPPED 


CTVTAB V 


SXTPUTIL 


14 P 


SXTPUTILX XC 




UTIL 


0000225 A 


SARXF 


01 0016753 L 


SAVECRC 


0000056 A 


SDRXF 


0000055 A 


SDR1XF 


01 0014047 L 


SEARCH 


01 0016201 L 


SEGHDR 


01 0014502 L 


SEGNEXT 


01 0014462 L 


SEGNOLP 


01 0014474 L 


SEGNZERO 


SEG000 V 


SEGTAB 


01 0014467 L 


SEGZERO 


CSYSUB V 


SENDMIO 



44-34, 53 

76-35, 78 

102-03,102 

136-07,136 

160-26,160 

171-35,173 

196-47,197 

240-21,240 

LIBNUM=5 

LIBNUM=3 

33-11, 34 

41-48, 42 

62-48, 63 

134-43,141 

173-45,174 

203-11,204' 

LIBNUM=5 

LIBNUM=3 

45-01, 45' 

64-21, 64 

118-05,124' 

173-46,175' 

206-15,206' 

214-33,216- 

221-25,223- 

LIBNUM=5 



•12, 53 
-06, 78 
-04,102 
-09,136 
-27,161 
-43,173 
-40,201 
■35,240 

132 
18 
•10, 34 
-13, 42 
■02, 64 
■14,156 
■49,187 
■12,206 

132 
33 
■07, 48 
■22, 64 
■19,133 
■01,187' 
■42,21V 
■04,216 
•05,223' 

132- 



■47, 54- 

•07, 78- 

-05,102- 

-21,140- 

-27,161- 

■44,174- 

■34,201- 

■36,244- 

•10 

■03, 18- 

■28, 35- 

■16, 44- 

■18, 67- 

■19,157- 

•39,187- 

■22,210- 

■11 

•32, 33- 

•15, 48- 

•23, 64- 

•06,134- 

•40,191- 

■26,211- 

•13,216- 

•37,241- 

•12 



21, 55- 
08, 82- 
13,102- 
10,140- 
30,162- 
47,174- 
42,206- 
24,244- 



02, 59- 
29, 82- 
•16,102- 
12,140- 
05,162- 
48,177- 
24,209- 
29,244- 



04, 61 
30, 82 
17,124 
25,140 
09,162 
22,181 
20,209 
35,244 



-17, 62- 
-35, 82- 

-08,124- 
•26,141- 
-41,163- 
-01,187- 
-29,214- 
-36,246- 



19, 64- 
37, 82- 
09,124- 
08,156- 
06,163- 
41,187- 
13,217- 
06,246- 



09, 64- 
38,101- 
10,133- 
18,157- 
12,163- 
42,191- 
45,219- 
09,250- 



CNRUTL 

13, 64-31, 69- 
36,101-38,102- 
04,135-10,135- 
18,159-11,159- 
39,165-04,166- 
18,193-42,194- 
49,220-08,223- 
16 



W77P 

14, 69-47, 
01,102-02, 
21,135-32, 
14,159-21, 
30,170-06, 
32,196-46, 
12,240-18, 



04, 18-05, 18-06, 18- 
10, 38-48, 39-44, 39- 
46, 45-06, 46-28, 48- 
04, 69-16, 69-49, 76- 
19,159-09,159-42,160- 
41,191-19,193-43,194- 
07,223-13,241-15,241- 

33, 33-41, 34-01, 34- 
27, 55-04, 59-37, 62- 
27, 69-18, 70-02, 82- 
44,141-20,156-20,157- 
26,193-44,195-01,196- 
27,211-29,211-31,212- 
27,217-38,217-39,217- 
16,241-17,241-40 



07, 18-08, 18-09, 18-10, 18-11, 31-22, 33-10, 
47, 40-30, 40-36, 41-31, 41-32, 41-42, 41-45, 
02, 53-09, 55-03, 59-06, 62-20, 62-44, 62-47, 
36,101-37,101-38,101-40,117-43,124-11,133-05, 
27,160-28,161-34,162-12,162-25,163-42,165-05, 
40,196-48,197-41,197-42,202-08,202-23,202-31, 
17,241-18,241-39 



02, 34-12, 34- 
21, 62-29, 62- 
31, 82-32, 82- 
20,159-10,159- 
49,202-09,202- 
07,212-29,213- 
46,217-47,218- 



26, 34-29, 35- 
39, 62-40, 62- 
33,108-03,117- 
41,160-28,160- 
24,202-32,203- 
30,213-33,213- 
27,221-07,221- 



14, 37-18, 37-19, 
43, 64-19, 64-20, 
34,117-39,118-04, 
29,162-36,165-09, 
12,204-13,206-10, 
39,214-14,214-30, 
17,221-18,221-19, 



32-27 32-27, 59-49,209-13 
193-09 193-09,193-14 

LIBNUM=15 128-07,128-21,128-38 

LIBNUM=15 
63-07 63-07 
124-38 124-38,127-38,145-12,151-09,164-23,245-08 
LIBNUH=15 145-15 

LIBNUM=15 

LIBNUM=5 132-44 
76-16 74-12 

LIBNUM=5 132-26 
LIBNUM=5 132-27,138-37,139-36 
225-22 169-19,173-17,178-04 
59-01 58-19 
241-04 240-42,240-45,241-01 
240-33 241-05 
240-46 240-38 

8-34 33-05,183-30,212-06 
240-40 

7-17 108-05 
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VALUE T 


NAME DEF/REF 


ATTRIBUTES AND REFERENCES CNRUTL H77D 


0000000 A 


SEQERR 14-08 


W"1 S*17 N«0 CL=3 74-37 


01 0010041 L 


SE9KEY 25-22 


TBLSIZ-1 25-24,152-04,159-24,160-05,165-13,167-09,169-39,170-16,191-36,248-32 


0006473 A 


SERNO 047643 257^3 




0006517 A 


SERN0~04883? 259-12 




0006523 A 


SERNO~048840 259-23 




0006553 A 


SERN0"049638 261-24 




.0006567 A 


SERNO 056860 263-02 




0006557 A 


SERN0"057238 262-02 




0006563 A 


SERN0"057658 262-15 


. 


0006547 A 


SERNO 059165 261-14 




0006543 A 


SERN0~059176 261-02 




0006537 A 


SERNO~059358 260-24 




0006527 A 


SERNO 059610 260-02 




0006477 A 


SERN0~060877 258-02 




0006467 A 


SERN0~061052 257-13 




0006503 A 


SERNO 061245 258-12 


• 


0006463 A 


SERN0~061472 257-02 




0006533 A 


SERN0"061585 260-13 




0006437 A 


SERN0~061610 255-13 


. 


0006443 A 


SERN0"061892 255-24 




0006447 A 


SERN0~061972 256-02 




0006513 A 


SERN0~061994 259-02 


- 


0006507 A 


SERN0~062271 258-23 




0006433 A 


SERNO~062635 255-02 




0006427 A 


SERNO - 062679 254-26 




0006453 A 


SERN0"062840 256-13 




0006423 A 


SERNO 063241 254-15 




0006457 A 


SERNO "063876 256-23 




0006417 A 


SERN0~065021 254-02 




CTAPH V 


SETMAINT 7-27 


108-46 


MASACS V 


SETRCBAP 8-26 


91-20 


01 0017515 L 


SEZC 97-42 


97-10 


01 0017500 L 


SEZM 97-23 


97-05 


01 0015753 L 


SEZTU 52-23 


52-15, 61-05, 72-16 


01 0016607 L 


SEZTU 72-15 


72-05, 73-05 


•TUUTCTL+5' T 


SGNO 


W=20 S=0 N*5 CL*2 37-20, 53-46, 54-44, 60-18, 61-34, 62-13, 62-17, 64-03, 64-07, 
68-27, 70-44, 70-46, 71-19, 71-27, 76-30 


0000036 A 


SIRXF 


LIBNUM=5 132-28 


0000035 A 


SIR1XF 


LIBNUM=5 132-29 


CSYSUB V 


SLDMIRL 128-16 


128-17,128-33,128-34 


CSYSUB V 


SMCH 128-06 


110-32,128-20,128-37 


u 


SP 




01 0011417 L 


SPECCASE 163-31 


162-18 


'VXER' T 


SPWORD 




01 0014051 L 


SRCHNXTBLK1 225-34 


226-20,227-10 


01 0014057 L 


SRCHSAMBLK 225-43 


227-07 


01 0014323 L 


SRCHTB 233-21 


185-06 


0000216 A 


SSXF 


LIBNUM=»S 109-39 


0000216 A 


SS RXT 


LIBNUM«5 109-31 
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VALUE T 


NAME 


DEF/REF ATTRIBUTES 


AND REFERENCES 




CNRUTL W77D 




01 0015771 L 


STALST 


52-47 52-41, 84-13, 


98-20 








01 0010025. L 


STARTCLRBLK 


25-08 


. 








0000011 A 


STATST 


LIBNUM=13 


75-12,121-19,152-41 








01 0020421 L 


STCOU 


45-04 45-02 










01 0017535 L 


STMADR 


98-38 97-0? 










01 0013100 L 


STOPOW 


199-01 5-30 










CBLM V 


STOPPSAU 


6-11 80-21, 86-21, 


114-21,182-39 








01 0015734 I 


STOPTAP 


51-01 5-31 










01 0020117 L 


STORTBT 


117-22 30-18, 31-19, 


32-39, 34-31, 35-16 








01 0015772 L 


STOUT 


53-04 52-18 










CUTIL V 


STPUTIL 


8-03 










TOATA V 


STRLIM 


8-37 8-41,107-45, 


135-39,136-46,136-47,202-12 




. 




01 0020202 L 


STRTOV 


120-07 119-31 






■ 




0121412 L 


STRTREF 


107-24 107-20 










MASACS V 


STWORD 


8-27 










CSYSUB V 


ST2 13 


7-10 247-13,248-40, 


251-29 








CSYSUB V 


ST2 7 


7-09 170-13 










01 0014352 L 


SUBDONE 


234-02 233-49 










•TUUTCTL+2' T 


SUBST 


W=20 S=0 N*2 


CL-2 29-04, 53-29, 56-14, 


60-05, 


60-33, 61-38, 63-35, 65-08, 66-40, 








67-22, 70-20, 


71-05, 71-08, 74-06, 74-49, 77-28, 


77-38, 


82-09, 90-01, 90-30, 93-03, 95-21," 








97-34, 98-07, 


98-46,100-05,101-01,102-04,114-38 








01 0017233 L 


SUB1 


89-23 88-26, 89-38 










01 0020330 L 


SUB1 TC 


89-08 89-06 










CSYSUB V 


SUB16" 


7-11 206-21 










• 0000000 A 


SV REG 












CTSD V 


SYSTATE 


7-34 250-19 










CIPL V 


SYSTMOFS 


6-31 112-35 










U 


T 












TTYTBL X 


TXAPE 


48-02 48-02, 53-23, 


59-48, 61-28, 67-15, 76-46, 79-19, 


79-44, 


95-36,166-40,171-45 




•CTVTAB V 


TXIMCHK 


LIBNUM*15 


107-19,107-38 








14 P 


TXIMCHKX XCS 














YSUB 


LIBNUM=15 






■ 




CTVTAB V 


TXIMOUT 


LIBNUM=15 


107-09,107-28 








14 P T 














YSUB 


LIBNUM=15 










TTYTBL X 


TXRNSLN 


49-08 49-08,174-02, 


191-26,197-05,201-42,220-08 








TTYTBL X 


TXTY 


166-32 166-32,171-37 










10 R 


TAPEACT 


16-20 W=1 S=16 N=6 


CL*1 152-37,247-45 








TOATA V 


TAPETBL 


8-38 36-11,117-29 










0000010 A 


TAPNO 


W==? S=0 N=10 


CL-3 LIBNUM«=13 37-18, 38-38, 


38-40, 


38-41, 74-31, 74-32, 74-33, 75-25, 








75-27, 75-28, 


76-11, 77-31, 78-04, 78-05, 92-34, 


93-23, 


93-25, 94-33,121-41,121-42 




0000002 A 


TAPUCLNT 


LIBNUM=13 


44-24, 52-30, 52-41, 56-45, 58-34, 


66-35, 


73-19, 74-46, 75-12, 75-44, 77-46, 








80-31, 81-25, 


82-02, 84-13, 90-10, 97-32, 98-04, 


98-20, 


99-10,100-20,101-08,104-42,105-28, 








121-19,121-29 










01 0015232 L 


TAPUMON 


28-09 24-29 










01 0015232 L 


TAPUTL 


1-33. 33-24, 34-16, 


44-40, 70-27, 88-41,102-07 








01 0016127 L 


TAPUTLCOM 


56-42 53-43, 62-05, 


63-49, 72-18 








01 0016611 L 


TAPUTLCOM 


72-17 72-08, 73-08 






■ 




01 0013226 L 


TC LABEL " 


203-47 203-36 


■ 
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VALUE T NAME 


DEF/REF ATTRIBUTES AND REFERENCES CNRUTL W77D 






CTSO V TC8ADR 


7-35 74-04, 77-34, 89-46, 92-04 






TDATA V TOATA 


8-39 159-38,202-17,202-42,221-16 






BLMMA V TEMPINH 


6-03 6-04, 6-05, 90-32, 99-12,100-22,110-17,114-40,247-44 






CSYSUB V TENZERO" 


7-12 240-11,240-20 






01 0011306 L TESTEOB 


160-36 161-43 






0116774 L TFAPCH2 


2-01 49-21, 81-02, 81-36, 87-10 






CSYSUB V TIMCHK 


7-15 107-18,107-37 






CSYSUB V TIMOUT 


7-16 107-08,107-27 




CSYSUB V TIMOUTX 


7-13 112-44 






01 0012246 L TNOBN 


181-46 181-32 






01 0012774 L TOO OLD 


195-44 195-41 






0600000 L TPATCH 


2-03 






'TUUTCTL+6' t tpno 


H=20 S=0 N=6 CL=2 36-15, 37-19, 38-42, 48-35, 52-26, 58-27, 61-17, 66-31, 67-04, 
74-05, 76-33, 77-03, 77-29, 78-03, 80-27, 81-09, 81-48, 92-33, 93-21, 94-21, 94-32,102-02, 
117-33,121-40 






0006477 A TR 011785 


258-02 






0006557 A TR 011845 


262-02 






0006543 A TR~011?77 


261-02 






0006423 A TR~012280 


254-15 




0006417 A TR"012281 


254-02 






0006427 A TR"012364 


254-26 






0006453 A TR~012436 


256-13 






0006457 A TR~012437 


256-23 






0006443 A TR~012438 


255-24 






0006433 A TR~012439 


255-02 






0006447 A TR~012447 


256-02 






0006473 A TR"012448 


257-23 






0006533 A TR~012449 


260-13 






0006437 A TR~012450 


255-13 






0006463 A TR~012607 


257-02 






0006503 A TR 012634 


258-12 






0006467 A TR 012638 


257-13 






0006507 A TR"012649 


258-23 






0006513 A TR~012650 


259-02 






0006527 A TR~012651 


260-02 






0006547 A TR~012809 


261-14 






0006523 A TR~013053 


259-23 






0006517 A TR 013054 


259-12 






0006537 A TR"013056 


260-24 






0006567 A TR~013059 


263-02 






0006553 A TR"013536 


261-24 






0006563 A TR~013591 


262-15 






0004147 A TR~11785 


172-29 172-41 " 






0002630 A TR 11845 


124-26 






0000746 A TR~11977 


39-01 39-11 






0004111 A-TR~12280 


151-41 152-04,153-13,153-25,171-02 






0001505 A TR~12281 


54-24 54-39, 62-23, 62-38, 64-15 






0005476 A TR~12364 


194-20 194-30,221-04,222-35 






0001600 A TRJ2436 


66-13 67-29, 70-33 
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PATCH HISTORT 




VALUE T NAME 


OEF/REF 


0002121 A TR 12437 


40-01 


0006261 A TR 12438 


245-49 


0004760 A TR 12439 


174-06 


0002276 A TR 12447 


46-24 


0002112 A TR 12448 


94-02 


0006150 A TR 12449 


242-07 


0005553 A TR 12450 


225-25 


0003402 A TR 12607 


146-24 


0003327 A TR 12634 


135-07 


0002447 A TR 12638 


110-39 


0002537 A TR~12649 


44-20 


0001422 A TR 12650 


33-07 


0005170 A TR 12651 


203-29 


0001027 A TR 12809 


42-33 


0001152 A TR 13053 


46-36 


0002366 A TR 13054 


108-48 


0006116 A TRJ3056 


209-26 


0002622 A TR 13059 


121-44 


0002575 A TR 13536 


109-17 


0002010 A TR 13591 


49-16 


0001107 A TR 3E790151 


47-02 


0002457 A TR 3E790250 


113-07 


0001565 A TR 3E790257 


67-43 


0006303 A TR 3E790260 


37-26 


0006273 A TR 3E790307 


218-15 


0001771 A TR 3E790479 


84-08 


0002407 A TR 3E790507 


105-16 


0002434 A TR 3E790679 


106-05 


0001670 A TR 3E800008 


78-43 


0001763 A TR 3E800077 


82-42 


0004067 A TR 3E800117 


167-37 


0002611 A TR 3E600147 


123-28 


0002332 A TR 3E800198 


106-26 


0001655 A TRZ3E800224 


78-14 


0000006 A TRACK 




0000000 A TRCK 




01 0020450 L TRK4 


34-27 


7 R TRN_OP 


16-14 



0:32:20 2/06/81 **** 



ATTRIBUTES AND REFERENCES 



CNRUTL 



W77D 



01 0014676 L TRORG 



33-07 



40-12, 40-26, 40-40, 41-19, 41-29, 42-09, 92-09, 92-45, 93-29, 95-12 
246-19,246-31 
188-04,188-28,196-12 

47-46, 48-11, 48-23, 88-37, 89-02,104-13 

242-18 
226-05,226-16 

135-18,135-29,137-06,140-15,140-25,141-10,141-23,141-41,142-11,142-40,143-21,144-01 

111-13,112-10,112-29 
44-36, 44-46, 97-39, 98-23, 99-38,101-11,101-44,102-13,102-33,119-34,120-04 
33-19, 33-30, 34-04, 34-22, 54-01, 56-01, 58-06, 58-29, 59-08, 59-20, 60-20, 60-32 

204-01,204-41,205-30,205-40 

48-39, 49-03 

?S?"^'n?" 12 '2l " 39 ' 211 " 11 ' 212 - 25 ' 212 "* 2 ' 213 - 18 <' 213 - 42 ' 21 *- 36 ' 2 1 6 -* ^17-02,235-20,235-32, 

236-08,236-18,236-38,237-24,237-35,238-15 

123-47,124-08 

109-36,122-36,123-02 

49-28, 80-43, 81-08, 81-32, 81-42, 87-05, 87-16 

47-14 
113-17 

68-08, 68-29, 68-39 

Ji'lZ'JS'll' 90 ~ 29 ' 98 " 48 ' 99-08,100-08,100-18,114-27,114-38,247-33,247-43 
245-27,247-08 

105-26,110-06,110-16 
106-15,111-32,111-42 

79-08 

83-02 
168-08,168-20 

106-38 

78-24 
W=2 S=13 N=6 CL*3 
W=2 S=13 N=0 CL=3 

95-05,102-25,102-36,11 

34-22 

«i ,? =4 ,,, N ;f J2£L 191 - 2 *' 191 - 27 ' 193 -l 2 '1 9 «-°6/201-37,201-45,202-15,202-40,205-25,220-03, 
ecu"! 1 /ZZ 1*1 4/222-08 

33-19, 34-04, 37-26, 

46-24, 46-36, 47-02, 

56-01, 58-06, 58-29, 

80-43, 81-32, 82-42, 

98-23, 98-48, 99-38, 1t 
109-36,110-06,110-39,11 
123-28,123-47,124-26,1: 
143-21,144-01,146-24,1! 



LIBNUM=13 
LIBNUM=13 
118-03 



39-01, 40- 

47-46, 48- 

59-08, 60- 

84-08, 87- 

100-08,101- 

111-13,111- 

135-07,135- 

151-41,153- 



35-08, 64-21, 64-22, 64-27, 77-05, 77-23,101-27,101-30 
39-39, 39-43, 42-36, 64-10, 64-11, 77-18, 89*47, 95-04, 



01, 40- 
11, 48- 
20, 62- 
05, 88- 
11,101- 
32,112- 
18,135- 
13,167- 



12, 40 
23, 48 
23, 64 

37, 90 
44,102 
10,112 
29,137 
37,168 



-26, 40 
-39, 49 
•15, 66 
-19, 92 
-33,104 
•29,113 
•06,140 
■08,171 



-40, 41- 
-03, 49- 
-13, 67- 
-09, 92- 
•13,105- 
•07,114- 
-15,141- 
•02,172- 



19, 42 
16, 49- 



29, 67 
45, 93 
16,106 
27,119 
10,141 
29,174 



09, 42 
29, 54 
43, 68 
29, 94 
05,106 
34,120 
23,141 
06,188 



-33, 44- 

-01, 54- 
-29, 78- 
-02, 95- 
-26,108- 
•04,121- 
-41,142- 
-04,188- 



20, 44-36, 
24, 54-39, 
14, 78-43, 
12, 97-39, 
48,109-17, 
44,122-36, 
11,142-40, 
28,194-20, 
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PATCH HISTORY 
VALUE T NAME 



0:32:20 



2/06/S1 **** 



DEF/REF 



ATTRIBUTES AND REFERENCES 



CNRUTL 



M770 



01 0020211 

CIPL 

0000000 

01 0012411 

01 0012403 

01 0012236 

TTVTBL 

LAYOUT 

TTYTBL 



TTYTBL 

7 

TTYTBL 

TTYTBL 

01 0014632 

10 



5 

11 



TRYNX 

TSFLG 

TSTATE 

TSTNXTAOR 

TSTNXTBLK 

TSTNXTORGBLK 

TTY IP 

TTY MFA 

TTY_NG 



TTY OK 
TTY OP 
TTY PF 
TTY_RL 
TTYACK 
TTYACT 
U TTYAPP 
R TTYI01 
R TTYLINK 



.0000002 A TTYO. 



0000003 A TTYO ASC 

0000010 A TTYO BCD 

0000004 A TTYO_DEC 

0000011 A TTYO 0EC5 

0000005 A TTYO_H_C 

0000014 A TTYO H D 

0000006 A TTYO L~X 



0000002 A TTYO SKP 
0000000 A TTYO WR5 



0000000 A TTYOCNT 



120-19 

6-32 

14-04 

185-03 

184-40 

181-34 

9-01 

8-12 

9-02 



9-03 

16-10 

9-04 

9-05 

245-10 

16-21 



196-12 
214-36 
245-27 
119-26 
222-04 
W=1 S 
186-13 
184-01 
183-16 
30-23 

31-25 
199-13 
248-35 
156-22 
W=1 S 

32-44 
116-28 
245-04 
W=1 S 



,203-29,204-01,204-41,205-30,209-26,210-12,210-39,211-11,212-25,212-42,213-18,213-42, 
,216-40,218-15,221-04,222-35,225-25,226-05,235-20,236-08,236-38,237-24,238-15,242-07, 
,245-49,246-19,247-08,247-33 



,222-24 

=13 N=0 



CL=3 LIBNUM=13 



74-36, 74-37, 78-12,122-02 



,186-45 
,186-14 
, 31-30, 37-30, 43-03, 45-22, 47-42, 50-23 

36-31, 50-18, 50-27,116-22,118-10,159-30,160-13,160-21,163-12,166-48,172-04,181-19, 
,199-21,202-01,202-37,203-02,203-20,209-16,210-28,210-48,211-19,211-40,220-16,243-25, 
,250-23 

,157-22,162-41,165-16 
=0 N=5 CL*1 166-35,166-43,167-24,169-21,171-40,171-48,172-13 

34-36, 35-21, 36-19, 51-14,164-27,199-24,248-44,251-44 
,243-32,251-16,251-25,251-40 



=17 N=6 CL"=1 



153-06,247-29 



153-08,174-46,176-15,183-30,183-31,183-37,184-32,193-40,194-18, 



16-08 W=20 S=0 N=3 CL=1 
16-22 W=20 S=0 N=7 CL*1 
196-44,197-43,247-28 
LIBNUM=10 28-24, 28-25, 53-20, 53-21, 55-40, 55-41, 56-32, 56-33, 57-08, 57-09, 59-46, 

61-25, 61-26, 63-17, 64-43, 67-12, 67-13, 76-43, 76-44, 79-16, 79-17, 79-41, 79-42, 91-10, 

91-11, 95-33, 95-34,103-08,103-09,124-36,127-33,127-34,129-09,129-10,130-28,145-22,145-23, 
151-05,151-06,151-28,151-29,162-49,163-01,164-19,164-20,174-16,176-23,176-24,193-28,193-29, 
194-06,195-10,197-15,198-05,198-06,206-31,206-32,214-21,214-22,218-05,218-06,223-21,245-17, 
245-18 

LIBNUH=10 63-16,194-05,195-09 
LIBNUH=10 53-20, 59-45, 76-43,174-15,197-14 

LIBNUM=10 61-25, 67-12, 79-16, 79-41,124-35,174-15,175-19,175-37,188-14,188-37,197-14, 
198-05,206-31,214-21,218-05 
LIBNUM=10 64-42, 64-43,197-14,223-20 

LIBNUM=10 130-10,130-11,142-33,143-12,143-44,144-21,175-19,175-37,188-14,188-37,206-31, 
223-20 

LIBNUM=10 142-33,142-34,143-44,143-45,175-20,188-15 

LIBNUM=10 53-20, 55-17, 55-18, 59-46, 76-43,124-35,130-10,130-11,131-05,131-06,142-33, 
142-34,143-12,143-13,143-44,143-45,144-21,144-22,175-19,175-20,175-37,175-38,188-14,188-15, 
188-37,188-38,206-31 ,223-20 

LIBNUM=10 143-12,143-13,144-21,144-22,175-38,188-38 
LIBNUM=10 28-24, 53-20, 59-45, 61-25, 63-17, 64-42, 67-12, 76-43, 79-16, 79-41, 91-10, 

95-33,103-08,127-33,129-09,130-27,142-34,143-13,143-45,144-22,145-22,151-05,151-28,162-49, 
164-19,174-16,175-19,175-37,188-14,188-37,193-28,197-15,198-05,245-17 
28-26 53-22, 55-19, 55-42, 56-34, 57-10, 59-47, 61-27, 63-18, 64-44, 67-14, 76-45, 79-18, 79-43, 

91-12, 95-35,103-10,124-37,127-35,129-11,130-12,130-29,131-07,142-35,143-14,143-46,144-23, 
145-24,151-07,151-30,163-02,164-21,174-17,175-21,175-39,176-25,188-16,188-39,193-30,194-07, 
195-11,197-16,198-07,206-33,214-23,218-07,223-22,245-19 
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API 



PATCH HISTORY 

VALUE T NAME 

01 0015454 L TUOUT 
01 0015455 L mOUTNG 

U TTYTBL 
4 R TTYVERB 

01 0010052 L TUCOPYCTL 
0000000 L TUPATCH 
CTSD V TUSTAT 
01 0010052 L TUUTCTL 



0:32:20 2/06/81 **** 



DEF/REF 



0000002 
01 0020416 

TTYTBL 

TTYTBL 

TTYTBL 

7 

MASACS 
01 0011067 
01 0013644 

CBLM 
01 0011057 
01 0020044 
01 0020065 
01 0012556 
01 0020032 
01 0013663 
01 0014045 
01 0014043 

CBLM 

CUTIL 

CTSD 
'TUUTCTL+O' 

TTYTBL 
01 0013644 
01 0012204 
01 0012526 
01 0012554 
01 0012262 
0000005 

CTVTAB 

14 

r-YTBL 

CBLM 
01 0021130 

TDATA 
01 0020405 



ATTRIBUTES AND REFFRENCES 



CNRUTL 



W77D 



36-26 30-16, 30-19, 31-17, 31-21, 32-25, 32-40, 34-32, 35-17, 37-17, 38-23, 44-18, 46-21 
36-29 32-37, 33-31, 34-11, 36-08, 36-14, 38-25, 38-31, 38-39, 39-35, 39-38, 39-42, 39-46, 40-10, 
40-38, 40-46, 41-40, 42-01, 42-17, 42-31, 48-21, 48-37, 51-08 

178-13,178-23,182-33,182-45,184-09,185-36,185-45,186-22,187-09, 



16-07 W=20 S=0 N=2 CL=1 
192-11,192-22 
93-03, 95-09, 95-10, 97-34, 98-07, 98-46,100-05,100-45,120-08 



26-19 

126-03 

7-36 

26-10 



TUUTlL 

TZR9 

UXCL 

UXPD 

UCL 

UCL_OP 

UNPKWRDS 

UPDDONE 

UPDHASH 

UPDOMAS 

UPDOMASCONT 

UPDOTS 

UPDOTSCONT 

UPDOWFIL 

UPDSYSTIM2 

UPVRHASHCONT 

UPVRHASHFAIL 

UPVRHASHPASS 

UOOFLCC 

UREQ 

UREQBUF 

UTCTL 

VXER 

VEKHASH 

VEROW 

VEROWFAIL 

VEROWFAILNP 

VERRESLP 

VERTRK 

WXAIT 

WXAITX XCBLM 

WXARN 

WAIT 

WAITX 

HDSTR 

WHTNXT 



24-28 

44-49 

177-25 

223-40 

9-12 

16-13 

8-28 

150-46 

219-30 

6-19 

150-34 

113-04 

114-11 

190-03 

112-32 

220-18 

224-20 

224-17 

6-20 

8-04 

7-37 



182-43 
219-31 
180-02 
187-36 
189-01 
182-16 



162-40 
6-21 

146-15 

8-40 

71-26 



N=5 CL"1 177-23,177-28,178-35 



74-30, 75-29, 77-30, 78-02,121-39 

5-32, 27-03, 28-12, 53-29, 60-05, 60-34, 61-38, 63-35, 66-40, 67-22, 70-17, 71-08, 74-49, 
75-31, 77-10, 82-09, 82-38, 83-03, 85-25, 85-35,101-01,114-38,116-24,119-44,121-34,122-13, 

51-07,116-21,250-10 

44-47 
177-25 
223-40 
250-16 
W=1 S*3 

87-41 
150-39 
5-33 
122-23,123-34 
1 50-43 
104-28 
104-29 
5-34 
104-27 

220-04,220-12 
220-37,222-11 
223-42 

113-37,123-24 

251-21 v 

146-17 '. V 

"Zl , S=0 „ N=!0 &**, 30 " 21 ' 31 " 28 ' 32_42 ' 34 " 34 ' 35-19, 36-17, 37-24, 43-01, 45-20, 47-40, 
50-21, 53-48, 55-47, 78-25, 91-03,102-13,122-13,122-30,123-45,124-09^124-10^124-11^124-19 

182-43,185-43,222-46,246-17 
5-35 
5-36 

183-06,183-09,186-05,186-08 

185-10,188-24 

183-15 

W=2 S=13 N*5 CL«3 LIBNUM-13 77-26 

LIBNUM=15 75-49, 89-27, 90-,15,121-24, 146-37,150-41,237-21 

LIBNUM=15 

162-40 
84-26, 84-41, 85-18, 86-28, 86-33 

137-30,140-47 

135-40,175-08,175-09,187-48,187-49 
71-18 
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PATCH HISTORY 
VALUE T NAME 



10 

HASACS 

CSTSUB 

0121233 

01 0017405 

0000003 

0000003 

01 0016273 

01 0016332 

01 0016250 

01 0017057 

01 0016457 

01 0016460 

01 0016442 

01 0014250 

01 0014210 

01 0011353 

CTSO 

01 0016556 

INITA 

0121022 



1 

0077777 

0000037 

0007777 



HIDE OP 

WOPS" 

MPOST 

WRCOMP 

WRITCOPY 

WRITE 

WRTAB 

WRTDCON 

WRTDCONL 

WRTOH 

WRTITA8 

WRTLCON 

WRTLC0N2 

WRTLH 

WRTNXTBLK 

WRTOWRCRD 

X.LT.A 

YEARS 

IEROIT 

ZOSPWDS 

1ST OW 

1STB 

3ACC 

32KMSK 

32SEGMSK 

4KMSK 



61-45 

63-41 

61-14 

77-43 

67-32 

67-36 

67-01 

231-12 

230-21 

162-15 

7-38 

70-11 

8-07 

82-23 

11-1? 

1-09 

15-18 

15-20 

15-19 



0:32:20 2/06/81 **** 
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18-11 

8-29 

7-14 

86-30 

94-28 



ATTRIBUTES AND REFERENCES 



CNRUTL 



W77D 



W=1 S=1 
86-18,1 
113-41,1 
85-27, 
92-17 
LIBNUM=1 
LIBNUM=1 
61-09 
61-10 
61-08 
74-20 
66-11 
71-32 
66-10 
232-01 
173-26 
162-07 
169-47,1 
69-46, 
113-20 
87-22 
W=1 S«=1 



N=0 CL=1 
82-36 

22-18,123-22 
85-29, 86-02 



135-41,136-02,137-19,138-33,139-32,142-18,142-46,143-30,144-07 



3 73-19,231-05,231-45,232-10 

77-46,179-03,184-23,186-36,187-23,192-40,224-05 



72-42 

69-48, 70-01, 70-03, 70-05, 70-07, 70-09 

N=0 CL«1 114-04,128-02,150-33,151-20 



203-25,206-11,223-31 
211-27,212-29,213-40 
204-34 
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C01 



PATCH HISTORY 
COUNT FLAG 

10 H 
13 FLAG(S) FOUND IN THIS ASSEMBLY 



PAGE-LINE OF FLAG 



0:32:20 2/06/61 **** 
CNRUTL W77D 



88-34,108-34,112-46 

70-48, 83-49, 84-26, 84-34, 84-41, 85-18, 86-28, 86-33,210-48,211-19 
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